File Coverage

blib/lib/ChainMake/Functions.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 10 12 83.3
pod 0 8 0.0
total 28 40 70.0


line stmt bran cond sub pod time code
1             package ChainMake::Functions;
2              
3 4     4   177595 use strict;
  4         8  
  4         186  
4 4     4   24 use Config;
  4         9  
  4         169  
5 4     4   36030 use ChainMake;
  4         13  
  4         175  
6 4     4   44 use Exporter 'import';
  4         8  
  4         1424  
7              
8             our $VERSION = $ChainMake::VERSION;
9              
10             our @EXPORT_OK = qw(
11             configure
12             targets
13             target
14             chainmake
15             execute_perl
16             execute_system
17             unlink_timestamps
18             delete_timestamp
19             );
20             our %EXPORT_TAGS = (all => [@EXPORT_OK]);
21            
22             my $cm=new ChainMake();
23              
24             if ($Config{useithreads}) {
25             eval "require ChainMake::Parallel";
26             $cm=new ChainMake::Parallel();
27             }
28              
29 4     4 0 143 sub configure { $cm->configure(@_) };
30 21     21 0 123 sub target { $cm->targets(@_) };
31 6     6 0 39 sub targets { $cm->targets(@_) };
32 76     76 0 365 sub chainmake { $cm->chainmake(@_) };
33 0     0 0 0 sub execute_perl { $cm->execute_perl(@_) };
34 0     0 0 0 sub execute_system { $cm->execute_system(@_) };
35 12     12 0 201 sub unlink_timestamps { $cm->unlink_timestamps(@_) };
36 14     14 0 120 sub delete_timestamp { $cm->delete_timestamp(@_) };
37              
38             1;
39              
40             __END__