File Coverage

example/lib/Test/Cool/commands/beans.pl
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2             package Test::Cool::beans;
3 1     1   9 use Getopt::App;
  1         3  
  1         6  
4             run(sub {
5             shift;
6             print join('|', grep { !ref } @{$Getopt::App::SUBCOMMAND}, __FILE__, @_), "\n";
7             return 11;
8             });