The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
1234567891011121314151617 #############################################################################sub wish_to_actually_create_views { my ($items, $options) = @_; foreach my $i (@$items) { sql_do ("DROP VIEW IF EXISTS $i->{name}"); sql_do ("CREATE VIEW $i->{name} AS $i->{sql}"); }}1;
#############################################################################
sub
wish_to_actually_create_views {
my
(
$items
,
$options
) =
@_
;
foreach
$i
@$items
) {
sql_do (
"DROP VIEW IF EXISTS $i->{name}"
);
"CREATE VIEW $i->{name} AS $i->{sql}"
}
1;