view release on metacpan or  search on metacpan

bin/fletch  view on Meta::CPAN

use constant {
    EXIT_SUCCESS => 0,
    EXIT_ERROR   => 1,
};

my $subcommand = shift @ARGV;
my $fletch       = Acme::Free::Dog::API->new;

#>>>
dispatch {
    xdefault shift, q{random};
}
$subcommand,
  breeds    => sub { exit do_breeds() },
  help      => sub { exit do_help() },
  images    => sub { exit do_images( \@ARGV ) },
  random    => sub { exit do_random( \@ARGV ) },
  subbreeds => sub { exit do_subbreeds( \@ARGV ) },
;
#<<<