The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
123456789101112131415 #############################################################################sub wish_to_actually_create_views { my ($items, $options) = @_; foreach my $i (@$items) { sql_do ("CREATE OR REPLACE VIEW $i->{name} ($i->{columns}) AS $i->{sql}"); }}1;
#############################################################################
sub
wish_to_actually_create_views {
my
(
$items
,
$options
) =
@_
;
foreach
$i
@$items
) {
sql_do (
"CREATE OR REPLACE VIEW $i->{name} ($i->{columns}) AS $i->{sql}"
);
}
1;