view release on metacpan or  search on metacpan

bin/apa  view on Meta::CPAN

use Getopt::Std; # function: getopts
use Pod::Usage;  # function: pod2usage
use App::APA;

getopts( '1fl:a' , \our %options );
binmode( STDOUT , ':encoding(UTF-8)' ); # warning: wide character

my $apa = App::APA -> new();

if ( defined( $options{f} or $options{1} ) ) {
  say $apa -> first_item;
}
elsif ( defined( $options{l} ) ) {
  say for $apa -> limit_items( $options{l} );
}
elsif ( defined( $options{a} ) ) {
  say for $apa -> all_items;
}
else {
  say pod2usage( verbose => 1 );
}

__END__

=pod

=encoding UTF-8

=head1 NAME