view release on metacpan or  search on metacpan

lib/Acme/BooK/Is/My/Bitch.pm  view on Meta::CPAN

sub random_quote {
    my $self = shift;
    my $method  = (keys %methods)[ rand keys %methods ];
    return $self->$method();
}

1;    # Magic true value required at end of module

=pod

=encoding iso-8859-1

=head1 NAME

Acme::BooK::Is::My::Bitch - BooK is my Bitch

=head1 VERSION

version 0.05

=head1 SYNOPSIS

weaver.ini  view on Meta::CPAN

[@CorePrep]
 
[-SingleEncoding]
encoding = iso-8859-1
[Name]
[Version]
[Generic / SYNOPSIS]
[Generic / DESCRIPTION]
[Leftovers]