view release on metacpan or  search on metacpan

lib/Acme/HowToMakeSushi.pm  view on Meta::CPAN

WHkXW0dX&ZXOOwuuMMMMHWfWZ<<;;<;;;;;<;;:<<<;;;;<;;;;<<;;;;<;;;>><<<;;<<;;;<<<:>?d#H@b><;;::;:;<::::;;;;::::;++??1ztttttttttlltlttlttltttltltlttttOwXUZIllllz<<~...~...........~..~..~.~.~..~.~....~..~..~

EOF_SHUSI
    }

}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::HowToMakeSushi - It's making sushi.

=head1 SYNOPSIS

    use Acme::HowToMakeSushi;

If it is that exit code is 0, you can make sushi

lib/Acme/HowToMakeSushi/Photo.pm  view on Meta::CPAN

our $VERSION = "0.02";

END{
	unless ($? != 0) { #  success making sushi
	print decode_base64(<<'END_OF_SUSHI'
/9j/4AAQSkZJRgABAQEBLAEsAAD//gArT3B0aW1pemVkIGJ5IEpQRUdtaW5pIDMuOC44LjhMIDB4NzczNjE2NmP/2wBDAAUDBAQEAwUEBAQFBQUGBwwIBwcHBw8LCwkMEQ8SEhEPERETFhwXExQaFRERGCEYGh0dHx8fExciJCIeJBweHx7/2wBDAQUFBQcGBw4ICA4eFBEUHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh4eHh...
END_OF_SUSHI
);
}else{
	print decode_base64(<<'END_OF_SUSHI'
/9j/4AAQSkZJRgABAAAAAQABAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCAMgBLADAREAAhEBAxEB/8QAHAAAAgMBAQ...
END_OF_SUSHI
);
}
}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::HowToMakeSushi::Photo - It's making sushi(photos).

=head1 SYNOPSIS

    use Acme::HowToMakeSushi::Photo;

	prtl hoge.pl > sushi.jpg