| blib/lib/WWW/Scraper/Yahoo360.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 34 | 78 | 43.5 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 0 | 8 | unless ($blog_page) |
| 39 | 0 | 0 | unless ($blog_page) |
| 53 | 8 | 0 | if ($blog_page =~ m[Your blog can be seen by ([\w\(\)\s]+)]m) { } |
| 56 | 2 | 6 | if ($sharing =~ /just me/) { } |
| 0 | 6 | elsif ($sharing =~ /friend/) { } | |
| 71 | 8 | 0 | if ($blog_page =~ /([^<]+)Full Post View/m) |
| 83 | 8 | 0 | if ($blog_page =~ m[(\d+) \- (\d+) of (\d+)]m) { } |
| 94 | 8 | 0 | if ($blog_page =~ m[My Blog]) { } |
| 125 | 0 | 0 | if ($mech->success) |
| 139 | 0 | 0 | if ($last > $count) |
| 148 | 120 | 0 | unless $DEBUG |
| 179 | 0 | 0 | if ($next_page =~ /Invalid ID or password/) |
| 186 | 0 | 0 | if ($ok) { } |
| 206 | 0 | 0 | unless ($posts) |
| 215 | 0 | 0 | if ($$post{'comments'} == 0) |
| 222 | 0 | 0 | if (my $post_comm = $self->get_blogpost_comments($post)) |
| 237 | 0 | 2 | unless ($page) |
| 239 | 0 | 0 | $self->mech->success ? : |
| 244 | 0 | 2 | unless ($page) |
| 261 | 6 | 0 | if ($page =~ m[ (.*?) ]gs) |
| 267 | 6 | 0 | if ($page =~ / ([^<]+)\s* |
| 293 | 0 | 4 | if (not $blog_page) { } |
| 320 | 0 | 4 | if ($start > $end_page) |
| 333 | 0 | 4 | if ($n >= $end_page and $end_page < $end_blog) |
| 345 | 0 | 0 | unless ($blog_page) |
| 368 | 10 | 0 | if ($blog_page =~ m[ (.*?) ]cgms) |
| 372 | 4 | 6 | if ($pic) |
| 380 | 10 | 0 | if ($blog_page =~ m[ (.*) ]cgm) |
| 386 | 10 | 0 | if ($blog_page =~ / |
| 392 | 10 | 0 | if ($blog_page =~ m[([^<]+)Edit]gm) |
| 398 | 10 | 0 | if ($blog_page =~ m[Permanent Link]gm) |
| 404 | 10 | 0 | if ($blog_page =~ m[(\d+) Comments?]gm) |
| 415 | 1 | 3 | unless ($found_posts) |
| 428 | 0 | 0 | unless (exists $$self{'_mech'}) |
| 441 | 20 | 0 | if ($date =~ /^ (\w{3})\w+ \s (\w{3})\w* \s (\d+), \s (\d+) \s - \s (\d+):(\d+)([ap]m) \s \((.*)\) \s* $/x) |
| 452 | 12 | 8 | if ($tz eq 'ICT') |
| 456 | 1 | 19 | if ($ampm eq 'AM' and $hours == 12) { } |
| 8 | 21 | elsif ($ampm eq 'PM' and $hours != 12) { } | |
| 461 | 0 | 8 | if ($hours > 23) |