| line |
true |
false |
branch |
|
13
|
0 |
0 |
if $args{'limit'} |
|
14
|
0 |
0 |
if $args{'ua'} |
|
15
|
0 |
0 |
unless $$self{'ua'} |
|
22
|
0 |
0 |
unless $path |
|
23
|
0 |
0 |
$path =~ m[^/] ? : |
|
|
0 |
0 |
$path =~ /^htt/ ? : |
|
34
|
0 |
0 |
unless keys %linkset |
|
49
|
0 |
0 |
if defined $ua and ref $ua eq 'LWP::UserAgent' |
|
56
|
0 |
0 |
if defined $limit and $limit =~ /^\d+$/ |
|
62
|
0 |
0 |
unless $linkref |
|
63
|
0 |
0 |
if ref $linkref eq 'ARRAY' |
|
64
|
0 |
0 |
unless $$linkref{'id'} |
|
67
|
0 |
0 |
if $$linkref{'desc'} |
|
68
|
0 |
0 |
if $$linkref{'notes'} |
|
69
|
0 |
0 |
if $$linkref{'pop'} |
|
70
|
0 |
0 |
if $$linkref{'date'} |
|
71
|
0 |
0 |
if $$linkref{'tag'} |
|
83
|
0 |
0 |
$page ? : |
|
85
|
0 |
0 |
unless $rs->is_success |
|
92
|
0 |
0 |
unless (my($id, $url, $desc) = $scrap =~ m[^(.*?)".*?a href="(.*?)".*?>(.*?)]is) == 3 |
|
97
|
0 |
0 |
if $notes |
|
100
|
0 |
0 |
unless my($tag) = $str =~ m[^href=.*?>(.*?)] |
|
103
|
0 |
0 |
unless keys %{$linkset{$id}{'tag'};} |
|
106
|
0 |
0 |
if $pop |
|
109
|
0 |
0 |
if $date |
|
111
|
0 |
0 |
if ++$num == $limit |
|
114
|
0 |
0 |
unless my($page0, $page1) = $html =~ / page (\d+) of (\d+)/is |
|
115
|
0 |
0 |
if $page0 == $page1 |
|
116
|
0 |
0 |
$page ? : |