Attachment #153716 for bug #34321

View | Details | Raw Unified | Return to bug 34321
Collapse All | Expand All




use Modern::Perl;

return {
    bug_number  => "BUG_NUMBER",
    description => "A single line description",
    up          => sub {
        my ($args) = @_;
        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)";
    },
- 

Return to bug 34321

Lines 1-23 Link Here

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