Branch Coverage

blib/lib/WWW/FetchStory/Fetcher/Dreamwidth.pm
Criterion Covered Total %
branch 0 60 0.0


line true false branch
106 0 0 if ($content =~ m[<title>([\w]+):\s*([^<]+)</title>]s) { }
0 0 elsif ($content =~ m[<title>([^<]+)</title>]s) { }
115 0 0 if ($content =~ m[([-\w]+)</b></a></span>\) wrote in <span class='ljuser']s)
123 0 0 if ($content =~ m[wrote,<br /><font[^>]+>\@\s*<a href="[^"]+">(\d+)</a>-<a href="[^"]+">(\d+)</a>-<a href="[^"]+">(\d+)</a>]s)
128 0 0 if $self->{'verbose'} > 1
131 0 0 unless ($url)
133 0 0 if ($content =~ /<a[^>]*href=["']([^?\s]+)\?mode=reply["']\s*>Post a new comment/s) { }
0 0 elsif ($content =~ /<a[^>]*href=["']([^?\s]+)\?mode=reply/s) { }
0 0 elsif ($content =~ m[<a[^>]*href="([^?\s]+)"\s*>Link</a>]s) { }
146 0 0 if (not $user and $url and $url =~ m[http://([-\w]+)\.dreamwidth\.org]s)
152 0 0 if ($content =~ /<div id='entrysubj'>(.*?)<div id='Comments'>/s) { }
0 0 elsif ($content =~ /<div id='entrysubj'>(.*?)<div role="navigation">/s) { }
0 0 elsif ($content =~ /<div class="entry"[^>]*>(.*?)<div class="tag">/s) { }
164 0 0 if $self->{'verbose'} > 1
165 0 0 if $self->{'verbose'} > 1
166 0 0 if ($story) { }
239 0 0 if ($args{'url'} =~ m[http://([-\w]+)\.dreamwidth\.org])
243 0 0 if ($user eq "community")
247 0 0 if ($args{'url'} =~ m[http://community\.dreamwidth\.org/([-\w]+)])
269 0 0 unless ($author)
300 0 0 if (defined $args{'urls'})
308 0 0 if (@chapters == 1 and $user)
310 0 0 if $self->{'verbose'} > 1
311 0 0 if ($args{'is_community'}) { }
317 0 0 if ($ch_url ne $args{'url'})
319 0 0 if $self->{'verbose'} > 1
330 0 0 if ($ch_url ne $args{'url'})
332 0 0 if $self->{'verbose'} > 1
358 0 0 if ($author =~ m(<span lj:user='\w+' style='white-space: nowrap;' class='ljuser'><a href='http://www\.dreamwidth\.org/profile\?user=\w+'><img src='http://www\.dreamwidth\.org/img/silk/identity/user\.png' alt='\[profile\] ' width='17' height='17' style='vertical-align: text-bottom; border: 0; padding-right: 1px;' /></a><a href='http://www\.dreamwidth\.org/profile\?user=\w+'><b>(.*?)</b></a></span>)) { }
0 0 elsif ($author =~ m[<a href='http://[-\w]+\.dreamwidth\.org/'><b>(.*?)</b></a>]) { }