| line |
true |
false |
branch |
|
48
|
0 |
0 |
unless $keyword |
|
54
|
0 |
0 |
if ($$r{'name'} =~ /\Q$keyword\E/) |
|
67
|
0 |
0 |
unless $author_page |
|
68
|
0 |
0 |
unless $keyword |
|
70
|
0 |
0 |
if ($author_page =~ /^\d+$/) |
|
81
|
0 |
0 |
if ($$r{'title'} =~ /\Q$keyword\E/) |
|
160
|
0 |
0 |
if (ref $$works{'list'} eq 'ARRAY') |
|
164
|
0 |
0 |
if ($work =~ /^
|
|
|
0 |
0 |
elsif ($all) { } |
|
211
|
0 |
0 |
unless $uri |
|
213
|
0 |
0 |
unless ($uri =~ /$$PAGES{'text_base_regex'}/) |
|
217
|
0 |
0 |
if ($uri =~ /\.html$/) |
|
233
|
3 |
4 |
if ($ua) { } |
|
234
|
3 |
0 |
if ref $ua eq 'LWP::UserAgent' |
|
246
|
0 |
0 |
unless my $fetch_response = 'URI::Fetch'->fetch($uri, 'UserAgent', $self->ua) |
|
251
|
0 |
0 |
if ($char) { } |
|
263
|
0 |
0 |
unless $$uri |
|
265
|
0 |
0 |
if (not $$uri =~ /$$PAGES{'author_base_regex'}/) { } |