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   23461 use strict;
  2         5  
  2         52  
4 2     2   12 use warnings;
  2         2  
  2         204  
5              
6             sub is_command {
7 5     5 0 620 my $val = shift;
8 5 100       96 ( $val !~ /^\d/ ) ? 1 : 0;
9             }
10              
11             sub eval_command {
12 4     4 0 1280 my $cmd = shift;
13 4         69497 chomp( my $val = `$cmd` );
14 4         416 return $val;
15             }
16              
17             1;