| line |
true |
false |
branch |
|
37
|
2 |
14 |
if @_ |
|
45
|
0 |
2 |
if (ref $class) |
|
50
|
2 |
0 |
if (@_) { } |
|
52
|
0 |
2 |
if ($obj) |
|
56
|
2 |
0 |
unless $dir =~ m[/$] |
|
68
|
0 |
3 |
unless defined $val |
|
70
|
0 |
3 |
unless my $out = 'IO::File'->new("> $file_name") |
|
74
|
1 |
2 |
if (ref $val) { } |
|
75
|
1 |
0 |
if (UNIVERSAL::isa($val, 'IO::Handle') or ref $val eq 'GLOB' or UNIVERSAL::isa($val, 'Tie::Handle')) { } |
|
85
|
0 |
0 |
$mode =~ /utf8/ ? : |
|
90
|
2 |
0 |
$mode =~ /utf8/ ? : |
|
92
|
0 |
3 |
unless $out->close |
|
93
|
1 |
2 |
if ($atime and $mtime) |
|
101
|
0 |
2 |
if utf8::is_utf8($str) |
|
107
|
1 |
0 |
unless utf8::is_utf8($str) |
|
115
|
1 |
2 |
unless -e $dir |
|
132
|
0 |
2 |
unless my $fh = 'IO::File'->new('< ' . $self->_dir . $key) |
|
138
|
1 |
0 |
if (my $fd = $self->getRaw_fh(@_)) { } |
|
171
|
0 |
5 |
unless -e $dir |
|
172
|
0 |
5 |
unless opendir DIR, $dir |
|
175
|
12 |
3 |
if $key =~ /^\.\.?$/ or -d "$dir/$key" |