| line |
true |
false |
branch |
|
13
|
1 |
1 |
if ($msg and $msg eq 'safe' and not $ENV{'ALLOW_SNIPPETS'}) |
|
34
|
0 |
6 |
unless $snippet_name =~ /^\w*$/u |
|
41
|
5 |
1 |
if $snippet_name |
|
43
|
1 |
5 |
unless (-f $snippet_path) |
|
44
|
0 |
1 |
unless (-d $snippet_dir) |
|
45
|
0 |
0 |
unless mkdir $snippet_dir |
|
47
|
0 |
1 |
unless open my $fh, '>', $snippet_path |
|
75
|
0 |
6 |
if $@ |
|
82
|
1 |
0 |
if $snippet_id |
|
86
|
0 |
1 |
unless -f $snippet_path |
|
88
|
0 |
1 |
unless unlink $snippet_path |
|
100
|
7 |
23 |
if ($var =~ /^\@(.*)/u) { } |
|
|
7 |
16 |
elsif ($var =~ /^\%(.*)/u) { } |
|
|
16 |
0 |
elsif ($var =~ /^\$/u) { } |