| line |
true |
false |
branch |
|
16
|
0 |
8 |
unless defined $path
|
|
40
|
0 |
0 |
if (1 == @_ or ref $_[0] eq 'SCALAR') { }
|
|
42
|
0 |
0 |
if @_
|
|
44
|
0 |
0 |
if ref $_[0] eq 'SCALAR'
|
|
51
|
0 |
0 |
ref $value eq 'HASH' ? :
|
|
59
|
2 |
2 |
if (1 == @_) { }
|
|
|
1 |
1 |
elsif (2 == @_ and $_[0] and $_[0] ne 'path') { }
|
|
|
1 |
0 |
elsif (@_ % 2) { }
|
|
65
|
1 |
0 |
if (ref $source_or_content eq 'SCALAR') { }
|
|
|
0 |
0 |
elsif (not ref $source_or_content) { }
|
|
88
|
0 |
4 |
unless defined $path
|
|
135
|
0 |
4 |
unless defined $path and length $path
|
|
138
|
0 |
4 |
if $path =~ s/:(\d+)$//
|
|
156
|
0 |
4 |
if ($$given{'is_dir'}) { }
|
|
|
0 |
4 |
elsif ($$given{'is_file'}) { }
|
|
165
|
4 |
0 |
unless (defined $$given{'mode'})
|