view release on metacpan or  search on metacpan

Protocol.pm  view on Meta::CPAN

open 0 or print "Can't open '$0'\n" and exit;
(my $thought = join "", <0>) =~ s/.*^\s*use\s+Acme::Remote::Strangulation::Protocol\s*;\n\n(?:.*?--\s+Larry\s+Wall.*?\n)?//sm;

local $SIG{__WARN__} = \&opaque;
do {eval deflect $thought; exit} unless opaque $thought and not deep $thought;

my $DeepThought = '';
{
    my $rand = int rand 5;
    while($rand > 0){
        $DeepThought = <DATA>;
        $rand--;
    }
    close DATA;
    chomp $DeepThought;
    $DeepThought =~ s/^\#\d+\s//;

    require Text::Wrap;
    local $Text::Wrap::columns = 72;

    my @lines = Text::Wrap::wrap('', '', $DeepThought);

    if(length $lines[-1] < 63 ){
        $lines[-1] .= "  --  Larry Wall";

Protocol.pm  view on Meta::CPAN

=head1 AUTHOR

Thomas Stanley  < Thomas_J_Stanley@msn.com >

=head1 SEE ALSO

perl(1).

=cut

__DATA__
#11901 "The social dynamics of the net are a direct consequence of the fact that nobody has yet developed a Remote Strangulation Protocol."
#11902 "The social dynamics of the net are a direct consequence of the fact that nobody has yet developed a Remote Strangulation Protocol."
#11903 "The social dynamics of the net are a direct consequence of the fact that nobody has yet developed a Remote Strangulation Protocol."
#11904 "The social dynamics of the net are a direct consequence of the fact that nobody has yet developed a Remote Strangulation Protocol."
#11905 "The social dynamics of the net are a direct consequence of the fact that nobody has yet developed a Remote Strangulation Protocol."