view release on metacpan or  search on metacpan

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

use 5.006;
use strict;

use Exporter qw(import);

our @EXPORT = qw(Buffalo buffalo);

our $VERSION = '0.01';

sub Buffalo (@) { $_[0] eq 'buffalo' ? 'buffalo' : undef; }
sub buffalo  {  return 'buffalo'; }

=head1 NAME

Acme::Buffalo::Buffalo - Perl extension to buffalo buffalo

=cut

=head1 SYNOPSIS

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

sentence 'Buffalo buffalo Buffalo buffalo buffalo buffalo Buffalo buffalo'
compile and run in Perl.

=head1 SUBROUTINES

Both are exported by default.

=head2 Buffalo

Accepts an array.  Returns 'buffalo' if first argument is 'buffalo', otherwise
undef.

=head2 buffalo

Returns 'buffalo'.

=head1 BUFFALO BUGS

Buffalo() cannot be called without arguments, due to the limitations of prototypes.

=head1 SEE ALSO