| line |
true |
false |
branch |
|
108
|
0 |
1 |
if $dispNum < 1 |
|
111
|
0 |
1 |
unless (open BB, $$self{'blog_idx'}) |
|
114
|
1 |
0 |
if $^O ne 'MSWin32' |
|
120
|
1 |
1 |
if $cnt == $dispNum or $_ =~ /^\#/ |
|
122
|
0 |
1 |
if defined $$self{'_show_author'} and $tmp[3] ne $$self{'_show_author'} |
|
127
|
1 |
0 |
if $^O ne 'MSWin32' |
|
133
|
0 |
1 |
unless open GF, "$fil" |
|
134
|
1 |
0 |
if $^O ne 'MSWin32' |
|
139
|
1 |
0 |
if $^O ne 'MSWin32' |
|
147
|
1 |
0 |
if (not defined $outFile) { } |
|
152
|
0 |
0 |
if $^O ne 'MSWin32' |
|
157
|
0 |
0 |
if $^O ne 'MSWin32' |
|
170
|
0 |
1 |
unless open BB, $$self{'blog_idx'} |
|
171
|
1 |
0 |
if $^O ne 'MSWin32' |
|
176
|
1 |
1 |
if $_ =~ /^\#/ |
|
178
|
0 |
1 |
if defined $$self{'_show_author'} and $tmp[3] ne $$self{'_show_author'} |
|
182
|
1 |
0 |
if $^O ne 'MSWin32' |
|
189
|
0 |
1 |
unless open GF, $fil |
|
190
|
1 |
0 |
if $^O ne 'MSWin32' |
|
195
|
1 |
0 |
if $^O ne 'MSWin32' |
|
203
|
1 |
0 |
if (not defined $outFile) { } |
|
208
|
0 |
0 |
if $^O ne 'MSWin32' |
|
213
|
0 |
0 |
if $^O ne 'MSWin32' |
|
238
|
0 |
2 |
if (not defined $format or ref $format ne 'HASH') |
|
241
|
0 |
2 |
if (not defined $xml or ref $xml ne 'SCALAR') |
|
250
|
16 |
0 |
if @$t[0] eq 'S' |
|
259
|
16 |
64 |
if (@$t[0] eq 'S' and @$t[1] =~ /^(simple_blog_wrap|simple_blog|ts|title|author|email|summary|content)$/) { } |
|
|
36 |
28 |
elsif (@$t[0] eq 'T') { } |
|
|
16 |
12 |
elsif (@$t[0] eq 'E' and @$t[1] =~ /^(simple_blog_wrap|simple_blog|ts|title|author|email|summary|content)$/) { } |
|
|
6 |
6 |
elsif (@$t[0] eq 'S') { } |
|
|
6 |
0 |
elsif (@$t[0] =~ /^(E|PI)$/) { } |
|
262
|
14 |
2 |
if exists $$format{@$t[1]} |
|
270
|
14 |
2 |
if $$open{$current[$#current]} |
|
317
|
0 |
0 |
unless (open IN, $$self{'blog_base'} . $dir . '/blog.xml') |
|
318
|
0 |
0 |
if $^W |
|
343
|
0 |
1 |
unless $pth |
|
348
|
1 |
0 |
unless $pth =~ m[/$] |
|
368
|
0 |
1 |
unless open F, ">$$obj{'blog_idx'}" |
|
369
|
1 |
0 |
if $^O ne 'MSWin32' |
|
374
|
1 |
0 |
if $^O ne 'MSWin32' |
|
382
|
0 |
1 |
unless (defined $title) |
|
383
|
0 |
1 |
unless (defined $author) |
|
384
|
0 |
1 |
unless (defined $email) |
|
385
|
0 |
1 |
unless (defined $smmry) |
|
386
|
0 |
1 |
unless (defined $content) |
|
416
|
0 |
1 |
unless mkdir $unqDir |
|
419
|
0 |
1 |
unless open BF, ">${unqDir}blog.xml" |
|
420
|
1 |
0 |
if $^O ne 'MSWin32' |
|
425
|
1 |
0 |
if $^O ne 'MSWin32' |
|
428
|
0 |
1 |
unless open BB, $$obj{'blog_idx'} |
|
429
|
1 |
0 |
if $^O ne 'MSWin32' |
|
435
|
1 |
0 |
if $^O ne 'MSWin32' |
|
439
|
0 |
1 |
unless open BB, ">$$obj{'blog_idx'}" |
|
440
|
1 |
0 |
if $^O ne 'MSWin32' |
|
445
|
1 |
0 |
if $^O ne 'MSWin32' |
|
456
|
0 |
0 |
if (defined $rex) |
|
462
|
0 |
0 |
unless open RB, $$obj{'blog_idx'} |
|
463
|
0 |
0 |
if $^O ne 'MSWin32' |
|
467
|
0 |
0 |
if ($chk =~ /$rex/) { } |
|
475
|
0 |
0 |
if $^O ne 'MSWin32' |
|
478
|
0 |
0 |
unless open RB, '>' . $$obj{'blog_idx'} |