| line |
true |
false |
branch |
|
58
|
82 |
0 |
unless $msg =~ /^\s*$/u or $msg =~ /[,\x{ff0c}\x{ff01}!\x{3002}.]$/u
|
|
61
|
0 |
82 |
if ($self->debug == 1) { }
|
|
|
0 |
82 |
elsif ($self->debug > 1) { }
|
|
66
|
0 |
0 |
unless -d $workdir
|
|
70
|
0 |
0 |
unless open my $fh, ">>encoding(UTF-8)", $filename
|
|
71
|
0 |
0 |
unless print $fh "$text\n"
|
|
72
|
0 |
0 |
unless close $fh
|
|
79
|
0 |
0 |
if not $config
|
|
82
|
0 |
0 |
unless -d $workdir
|
|
85
|
0 |
0 |
if (ref $enc) { }
|
|
87
|
0 |
0 |
unless (not $@)
|
|
98
|
0 |
0 |
unless open my $fh, ">>:encoding(UTF-8)", $filename
|
|
99
|
0 |
0 |
unless print $fh $config
|
|
100
|
0 |
0 |
unless close $fh
|
|
113
|
0 |
0 |
if $ENV{'PDK_CONTENT_DEBUG'}
|