| line |
true |
false |
branch |
|
20
|
1 |
6 |
unless (exists $p{'file'} and -f $p{'file'})
|
|
40
|
12 |
22 |
if ($module eq lc $module)
|
|
42
|
6 |
6 |
if $self->{'verbose'}
|
|
46
|
0 |
22 |
if $module eq 'Carp'
|
|
48
|
20 |
2 |
if (my($dir, $file) = $module =~ m[^(.*)/(.*)$]) { }
|
|
52
|
5 |
15 |
if (module_installed($package)) { }
|
|
54
|
2 |
3 |
if $self->{'verbose'}
|
|
60
|
15 |
0 |
unless (-d "$self->{'lib'}/$dir")
|
|
62
|
0 |
15 |
unless make_path("$self->{'lib'}/$dir")
|
|
65
|
15 |
0 |
unless (-f "$self->{'lib'}/$path")
|
|
67
|
0 |
15 |
unless open my $wfh, '>', "$self->{'lib'}/$path"
|
|
69
|
0 |
15 |
unless close $wfh
|
|
78
|
2 |
0 |
unless (-f "$self->{'lib'}/$module_file")
|
|
80
|
0 |
2 |
unless open my $wfh, '>', "$self->{'lib'}/$module_file"
|
|
82
|
0 |
2 |
unless close $wfh
|
|
88
|
0 |
6 |
if (not $self->{'lib'}) { }
|
|
97
|
6 |
11 |
if (not exists $self->{'lib'} && -d $self->{'lib'})
|
|
98
|
2 |
4 |
exists $self->{'keep'} ? :
|
|
100
|
3 |
3 |
if $self->{'verbose'}
|