File Coverage

bin/ape
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 19 94.7


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2              
3             # ABSTRACT: ape - An elasticsearch based command-line test management system
4             # PODNAME: ape
5              
6             package Bin::ape;
7             $Bin::ape::VERSION = '0.001';
8 1     1   488 use strict;
  1         2  
  1         22  
9 1     1   4 use warnings;
  1         2  
  1         21  
10              
11             #Really was tempted to go with Grape::Ape here
12 1     1   314 use App::ape;
  1         3  
  1         92  
13              
14             exit main(@ARGV) unless caller;
15              
16             sub main {
17 1     1   435 my @args = @_;
18 1         3 my $app = App::ape->new(@args);
19 1 50       9 return $app unless ref($app) =~ m/^App::ape::/;
20 1         2 return $app->run();
21              
22             }
23              
24             1;
25              
26             __END__