view release on metacpan or  search on metacpan

bin/apa  view on Meta::CPAN

use v5.37.9;

use lib '/home/regular/IdeaProjects/App-APA/lib';

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} ) ) {