view release on metacpan or  search on metacpan

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

by default this package exports some methods for playing with your 
kitties.

=head2 milk - give milk to a kitty.

if not called directly on a kitty, $_ will be checked for a kitty;

=cut

our @EXPORT    = qw(&milk &nip);   # afunc is a function
# @EXPORT_OK = qw(&%hash *typeglob); # explicit prefix on &bfunc

sub milk {
    my $kitty;

    if(not @_ and ref $_ eq __PACKAGE__){
        $kitty = $_
    }
    if( @_ ){ $kitty = shift }

    $kitty->feed( 'milk' );