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:
parent
6e03a187b7
commit
9919d7afd4
1 changed files with 8 additions and 3 deletions
|
@ -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)";
|
||||
},
|
||||
|
|
Loading…
Reference in a new issue