| line |
true |
false |
branch |
|
39
|
2 |
14 |
if @_ |
|
47
|
0 |
2 |
if (ref $class) |
|
52
|
2 |
0 |
if (@_) { } |
|
54
|
0 |
2 |
if ($obj) |
|
58
|
2 |
0 |
unless $dir =~ m[/$] |
|
70
|
0 |
3 |
unless defined $val |
|
72
|
0 |
3 |
unless my $out = 'IO::File'->new("> $file_name") |
|
76
|
1 |
2 |
if (ref $val) { } |
|
77
|
1 |
0 |
if (UNIVERSAL::isa($val, 'IO::Handle') or ref $val eq 'GLOB' or UNIVERSAL::isa($val, 'Tie::Handle')) { } |
|
87
|
0 |
0 |
$mode =~ /utf8/ ? : |
|
92
|
2 |
0 |
$mode =~ /utf8/ ? : |
|
94
|
0 |
3 |
unless $out->close |
|
95
|
1 |
2 |
if ($atime and $mtime) |
|
103
|
0 |
2 |
if utf8::is_utf8($str) |
|
109
|
1 |
0 |
unless utf8::is_utf8($str) |
|
117
|
1 |
2 |
unless -e $dir |
|
134
|
0 |
2 |
unless my $fh = 'IO::File'->new('< ' . $self->_dir . $key) |
|
140
|
1 |
0 |
if (my $fd = $self->getRaw_fh(@_)) { } |
|
173
|
0 |
5 |
unless -e $dir |
|
174
|
0 |
5 |
unless opendir DIR, $dir |
|
177
|
12 |
3 |
if $key =~ /^\.\.?$/ or -d "$dir/$key" |