view release on metacpan or  search on metacpan

lib/Acme/RandomQuote/Base.pm  view on Meta::CPAN

Creates a new Acme::RandomQuote::Base object.

    my $foo = Acme::RandomQuote::Base->new( 'file' );

=cut

sub new {
    my ( $self, $filename ) = @_;

    return bless \$filename => $self;
}

=head2 get_random_quote

Returns a random line from the selected file.

    print $foo->get_random_quote();

=cut