File Coverage

blib/lib/Alien/libtool.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Alien::libtool;
2              
3 1     1   223580 use strict;
  1         9  
  1         25  
4 1     1   4 use warnings;
  1         2  
  1         21  
5 1     1   13 use 5.008001;
  1         2  
6 1     1   5 use base qw( Alien::Base );
  1         2  
  1         424  
7              
8             # ABSTRACT: Build or find libtool
9             our $VERSION = '0.15'; # VERSION
10              
11              
12              
13              
14              
15              
16              
17              
18             my %helper;
19              
20             foreach my $command (qw( libtool libtoolize ))
21             {
22             if($^O eq 'MSWin32')
23             {
24             $helper{$command} = sub { qq{sh -c "$command "\$*"" --} };
25             }
26             else
27             {
28             $helper{$command} = sub { $command };
29             }
30             }
31              
32             sub alien_helper {
33 1     1 1 11769 return \%helper;
34             }
35              
36             1;
37              
38             __END__