| line |
true |
false |
branch |
|
20
|
0 |
4 |
if $caller_name =~ /\(eval\s.*\)/msx |
|
34
|
3 |
16 |
if ($key =~ /^[-]/) { } |
|
35
|
0 |
3 |
if ($key =~ /-path/) { } |
|
|
2 |
1 |
elsif ($key =~ /-name/) { } |
|
|
1 |
0 |
elsif ($key =~ /-timestamp/) { } |
|
|
0 |
0 |
elsif ($key =~ /-append/) { } |
|
61
|
0 |
4 |
unless -w "$$arg{-'path'}" |
|
67
|
0 |
4 |
$$arg{-'append'} ? : |
|
68
|
0 |
4 |
unless my $fh = 'IO::File'->new("$$arg{-'path'}/$$arg{-'name'}", $mode) |
|
87
|
1 |
6 |
if $$arg{-'timestamp'} |
|
88
|
0 |
7 |
unless print $fh "$value\n" |
|
96
|
0 |
1 |
wantarray ? : |
|
105
|
0 |
1 |
if $@ |
|
109
|
0 |
1 |
unless print $fh Data::Dumper::Dumper(@_) |
|
115
|
0 |
0 |
if $@ |
|
120
|
0 |
0 |
unless print $fh YAML::Dump(@_) |
|
122
|
0 |
0 |
wantarray ? : |