All pastes #252332 Raw Edit

Miscellany

public text v1 · immutable
#252332 ·published 2006-11-19 10:41 UTC
rendered paste body
#!/usr/bin/perl

my $no_insult;

BEGIN {
    eval "use Acme::Scurvy::Whoreson::BilgeRat;";
    $no_insult++ if ($@) ;
}
     my $insultgenerator = Acme::Scurvy::Whoreson::BilgeRat->new(
                language => 'insultserver'
        );

sub insult {
        return $insultgenerator; 
}
1;
__END__