installer/data/mysql/atomicupdate/skeleton.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "BUG_NUMBER",
   5     description => "A single line description",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         # Do you stuffs here
  10         $dbh->do(q{});
  11         # Print useful stuff here
  12         # tables
  13         say $out "Added new table 'XXX'";
  14         say $out "Added column 'XXX.YYY'";
  15         # sysprefs
  16         say $out "Added new system preference 'XXX'";
  17         say $out "Updated system preference 'XXX'";
  18         say $out "Removed system preference 'XXX'";
  19         # permissions
  20         say $out "Added new permission 'XXX'";
  21         # letters
  22         say $out "Added new letter 'XXX' (TRANSPORT)";
  23     },
  24 };