File Coverage

/usr/local/bin/patchperl
Criterion Covered Total %
statement 18 20 90.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 24 28 85.7


line stmt bran cond sub pod time code
1             #!/usr/local/bin/perl
2              
3             package
4             patchperl;
5             # ABSTRACT: patch a perl source tree
6              
7 3     3   19172 use strict;
  3         9  
  3         231  
8 3     3   23 use warnings;
  3         7  
  3         223  
9 3     3   9019 use Devel::PatchPerl;
  3         630329  
  3         246  
10 3     3   2081 use Getopt::Long;
  3         31869  
  3         10  
11              
12 3         416565 my $version = '';
13 3         10 my $patchlevel = '';
14              
15 3 50       22 GetOptions(
16             version => \$version,
17             patchlevel => \$patchlevel,
18             ) or die("Error in command line arguments\n");
19              
20 3 50       2230 if ( $version ) {
21 3         69 my $vers = Devel::PatchPerl->_patchperl_version();
22 3         298 print "Devel::PatchPerl $vers\n";
23             }
24             else {
25 0         0 local $ENV{PERL5_PATCHPERL_PATCHLEVEL} = $patchlevel;
26 0         0 Devel::PatchPerl->patch_source($ARGV[1], $ARGV[0]);
27             }
28              
29             __END__