view release on metacpan or  search on metacpan

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

package Acme::Goatse;

require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(goatse);

$VERSION = 0.02;

sub goatse {

$_=q&M("`@("`@(%P@("`@("`@("`@("`@7"`@("`@("`@("`@("\@("`@7"`@("`@
M("`*?"`@("`@("!\("`@("`@("`@("`@(%P@("`@("`@("`@?"`@("`@('P@
M("`@("`*?"`@("`@("!@+B`@("`@("`@("`@("!\("`@("`@("`@?"`@("`@
M("`Z("`@("`*8"`@("`@("`@?"`@("`@("`@("`@("!\("`@("`@("!<?"`@
M("`@("!\("`@("`*(%P@("`@("`@?"`O("`@("`@("\@(%Q<7"`@("TM7U\@
M7%P@("`@("`@.B`@("`*("!<("`@("`@7"\@("!?+2U^?B`@("`@("`@("!^
M+2U?7WP@7"`@("`@?"`@("`*("`@7"`@("`@(%Q?+7X@("`@("`@("`@("`@
M("`@("`@('XM7UP@("`@?"`@("`*("`@(%Q?("`@("!<("`@("`@("!?+BTM
M+2TM+2TM+E]?7U]?7UQ\("`@?"`@("`*("`@("`@7"`@("`@7%]?7U]?7R\O
M(%\@7U]?(%\@*%\H7U\^("!<("`@?"`@("`*("`@("`@(%P@("`N("!#(%]?
M7RD@(%]?7U]?7R`H7RA?7U]?/B`@?"`@+R`@("`*("`@("`@("]<('P@("!#
M(%]?7U\I+R`@("`@(%P@*%]?7U]?/B`@?%\O("`@("`*("`@("`@+R`O7'P@
M("!#7U]?7U\I("`@("`@('P@("A?7U\^("`@+R`@7"`@("`*("`@("!\("`@
M*"`@(%]#7U]?7U\I7%]?7U]?7R\@("\O(%\O("\@("`@(%P*("`@("!\("`@
M(%P@('Q?7R`@(%Q<7U]?7U]?7U]?+R\@*%]?+R`@("`@("!\"B`@("!\(%P@
M("`@7%]?7U\I("`@8"TM+2T@("`M+2<@("`@("`@("`@("`@?`H@("`@?"`@
M7%\@("`@("`@("`@7U]?7"`@("`@("`O7R`@("`@("`@("!?+R!\"B`@('P@
M("`@("`@("`@("`@("\@("`@?"`@("`@?"`@7"`@("`@("`@("`@('P*("`@
M?"`@("`@("`@("`@("!\("`@("\@("`@("`@7"`@7"`@("`@("`@("`@?`H@
M("!\("`@("`@("`@("\@+R`@("!\("`@("`@("`@?"`@7"`@("`@("`@("`@
M?`H@("!\("`@("`@("`@+R`O("`@("`@7%]?+UQ?7U\O("`@('P@("`@("`@
M("`@?`H@('P@("`@("`@("`O("\@("`@("`@('P@("`@?"`@("`@("!\("`@
M("`@("`@?"`*("!\("`@("`@("`@('P@("`@("`@("!\("`@('P@("`@("`@
,?"`@("`@("`@('P*
&;

$_ = unpack 'u', $_;

my $pad = int shift;

if ($pad){
	my @lines = split /\n/;

	for(1..$pad){
		my @newlines;
		for my $line(@lines){
			push @newlines, pad_line($line);
			#push @newlines, "\n";
		}
		@lines = @newlines;
	}
	$_ = join "\n", @lines;
}

return $_;
}

sub pad_line {
	return join '',map{"$_ "}split //, shift;
}

__END__

=head1 NAME

Acme::Goatse - On-demand goatse

=head1 SYNOPSIS

	use Acme::Goatse;

	$foo = goatse();
	print $foo;

	# to zoom in...
	goatse(1);


=head1 DESCRIPTION

	Just use it. Don't ask.



=head1 AUTHOR

Copyright (C) 2005, Cal Henderson, E<lt>cal@iamcal.comE<gt>


=cut