| line |
true |
false |
branch |
|
48
|
1 |
1 |
unless my $url = shift() |
|
54
|
0 |
1 |
unless $resp->is_success |
|
57
|
0 |
1 |
unless ($content =~ /id="ascii"/) |
|
58
|
0 |
0 |
if ($content =~ /
|
|
|
0 |
0 |
elsif (length $content > 100) { } |
|
69
|
1 |
0 |
if ($resp->content =~ m[(http://[a-z0-9]+\.[a-z0-9]+\.sl\.pt)]x) |
|
85
|
1 |
1 |
unless my $tinyurl_url = shift() |
|
90
|
0 |
1 |
unless $tinyurl_url =~ m[http://[a-z0-9]+\.[a-z0-9]+\.sl\.pt] |
|
94
|
0 |
1 |
unless ($resp->is_redirect) |
|
96
|
0 |
0 |
if ($content =~ /Error/) { } |
|
97
|
0 |
0 |
if ($content =~ /
|
|
|
0 |
0 |
elsif (length $content > 100) { } |