| line |
true |
false |
branch |
|
52
|
0 |
2 |
unless UNIVERSAL::isa($config, 'Bryar::Config') |
|
67
|
0 |
0 |
unless UNIVERSAL::isa($config, 'Bryar::Config') |
|
103
|
0 |
3 |
unless UNIVERSAL::isa($config, 'Bryar::Config') |
|
106
|
0 |
3 |
if ($params{'subblog'}) |
|
110
|
0 |
3 |
if ($params{'id'}) { } |
|
113
|
0 |
3 |
if ($params{'since'}) |
|
114
|
0 |
3 |
if ($params{'before'}) |
|
117
|
1 |
2 |
if ($params{'content'}) |
|
134
|
0 |
5 |
unless $file |
|
135
|
0 |
5 |
unless open my $in, '<:utf8', $file |
|
140
|
3 |
2 |
if (exists $UID_Cache{$fileuid}) { } |
|
153
|
3 |
2 |
if -e $id . '.comments' |
|
172
|
0 |
3 |
unless open COMMENTS, '<:utf8', $file |
|
206
|
0 |
1 |
if (@links > 3) { } |
|
|
0 |
1 |
elsif (length $params{'content'} < 1) { } |
|
|
0 |
1 |
elsif (@links) { } |
|
216
|
0 |
0 |
unless open MAIL, qq[| mail -s "$email $author maybe tried to spam the journal" ] . $config->email |
|
221
|
0 |
0 |
unless close MAIL |
|
227
|
0 |
1 |
if $params{'url'} and not $params{'url'} =~ m[^http://] |
|
231
|
0 |
1 |
unless open OUT, '>>:utf8', $file |
|
239
|
0 |
1 |
unless open MAIL, '| mail -s "Someone commented in the journal" ' . $config->email |
|
244
|
1 |
0 |
unless close MAIL |