| line |
true |
false |
branch |
|
20
|
0 |
8 |
if ($n =~ m[^(.*?)/(.*)$]) { } |
|
26
|
5 |
3 |
if defined $fn |
|
35
|
0 |
0 |
if ($write) |
|
40
|
0 |
0 |
defined $fn ? : |
|
45
|
0 |
0 |
unless $write |
|
47
|
0 |
0 |
unless my $oh = 'IO::File'->new($orig, 'r') |
|
49
|
0 |
0 |
unless my $fh = $class->_open($write, $global, $fn) |
|
54
|
0 |
0 |
unless close $fh |
|
56
|
0 |
0 |
unless close $oh |
|
66
|
0 |
0 |
if ($scope eq 'global') { } |
|
|
0 |
0 |
elsif ($scope eq 'user') { } |
|
|
0 |
0 |
elsif ($scope eq 'app') { } |
|
|
0 |
0 |
elsif ($scope eq 'process') { } |
|
95
|
0 |
14 |
if ($path eq '') |
|
96
|
0 |
0 |
if (my $script = File::Which::which($0)) |
|
101
|
14 |
0 |
if -e $0 |
|
109
|
0 |
0 |
if $name =~ /^(.+)\..*$/ |
|
110
|
0 |
0 |
if $name eq '' |
|
125
|
0 |
7 |
if $name =~ /\./ |
|
132
|
0 |
0 |
if (-e $parent) { } |
|
133
|
0 |
0 |
unless -d $parent |
|
135
|
0 |
0 |
unless -W $parent |
|
139
|
0 |
0 |
unless mkdir $parent |
|
148
|
14 |
0 |
if pop @dirs eq '' |
|
149
|
14 |
0 |
@dirs ? : |
|
154
|
0 |
0 |
if (-e $dir) { } |
|
155
|
0 |
0 |
unless -d $dir |
|
158
|
0 |
0 |
unless mkdir $dir |
|
166
|
0 |
0 |
unless defined $_[-1] |
|
172
|
0 |
0 |
unless defined $_[-1] |
|
178
|
0 |
0 |
unless defined $login |