Bug 34321: Tidy skeleton.pl

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Marcel de Rooy 2023-07-20 11:49:37 +00:00 committed by Tomas Cohen Arazi
parent 6e03a187b7
commit 9919d7afd4
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F

View file

@ -1,23 +1,28 @@
use Modern::Perl;
return {
bug_number => "BUG_NUMBER",
bug_number => "BUG_NUMBER",
description => "A single line description",
up => sub {
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
my ( $dbh, $out ) = @$args{qw(dbh out)};
# Do you stuffs here
$dbh->do(q{});
# Print useful stuff here
# tables
say $out "Added new table 'XXX'";
say $out "Added column 'XXX.YYY'";
# sysprefs
say $out "Added new system preference 'XXX'";
say $out "Updated system preference 'XXX'";
say $out "Removed system preference 'XXX'";
# permissions
say $out "Added new permission 'XXX'";
# letters
say $out "Added new letter 'XXX' (TRANSPORT)";
},