view release on metacpan or  search on metacpan

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

package Acme::HowToMakeSushi::Photo;
use 5.008001;
use strict;
use warnings;
use MIME::Base64;

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

=head1 DESCRIPTION

Acme::HowToMakeSushi::Photo is like Acme::Cake.
Acme::HowToMakeSushi is AA .
But, this module is jpg data.

=head1 LICENSE

Copyright (C) AnaTofuZ.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHOR

AnaTofuZ E<lt>e155730@ie.u-ryukyu.ac.jpE<gt>

=cut