File Coverage

lib/RPM/Packager/Utils.pm
Criterion Covered Total %
statement 11 11 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package RPM::Packager::Utils;
2              
3 2     2   25598 use strict;
  2         4  
  2         62  
4 2     2   12 use warnings;
  2         5  
  2         242  
5              
6             sub is_command {
7 5     5 0 869 my $val = shift;
8 5 100       121 ( $val !~ /^\d/ ) ? 1 : 0;
9             }
10              
11             sub eval_command {
12 4     4 0 1821 my $cmd = shift;
13 4         22818 chomp( my $val = `$cmd` );
14 4         262 return $val;
15             }
16              
17             1;