File Coverage

Build
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 3 3 100.0
pod n/a
total 17 20 85.0


line stmt bran cond sub pod time code
1             #!/usr/local/bin/perl
2 1     1   6793 use lib 'builder';
  1         809  
  1         7  
3 1     1   587 use Acme::Parataxis::Builder;
  1         3  
  1         51  
4 1     1   1219 use Getopt::Long qw[GetOptionsFromArray];
  1         15570  
  1         5  
5 1 50 33     169889 my %opts = ( @ARGV && $ARGV[0] =~ /\A\w+\z/ ? ( action => shift @ARGV ) : () );
6 1         9 GetOptionsFromArray \@ARGV, \%opts, qw[install_base=s install_path=s% installdirs=s destdir=s prefix=s config=s% uninst:1 verbose:1 dry_run:1 jobs=i];
7 1         1842 Acme::Parataxis::Builder->new(%opts)->Build();