File Coverage

example/bin/cool

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	5	5	100.0
pod			n/a
total	26	27	96.3

#!/usr/bin/env perl
package Test::Cool;
use Getopt::App -complete;
use File::Spec::Functions qw(catdir catfile rel2abs updir);
use File::Basename        qw(dirname);

sub command_foo {
  my ($app, @args) = @_;
  printf qq(args=%s foo=%s\n), join(',', @args), $app->{foo} // '';
}

# getopt_subcommands() is called by Getopt::App
sub getopt_subcommands {
  my $app    = shift;
  my $method = ['foo', 'command_foo', 'internal method'];

  # Can also use File::Share or $INC{'My/Module.pm'} to locate commands
  my $dir = catdir dirname(__FILE__), updir, qw(lib Test Cool commands);

  opendir(my ($DH), $dir) or die $!;
  return [$method, map { [s!\.pl$!!r, rel2abs(catfile $dir, $_), "Try $_"] } sort grep {/\.pl$/} readdir $DH];
}

run(
  'foo=s             # Argument for foo',
  'h                 # Print help',
  'completion-script # Print autocomplete script',
  sub {
    my ($app, @args) = @_;
    return print generate_completion_script() if $app->{'completion-script'};
    return print extract_usage()              if $app->{h};
    say __FILE__;
    return 10;
  }
);