| line |
true |
false |
branch |
|
48
|
1 |
1 |
unless my $url = shift() |
|
55
|
0 |
1 |
unless ($resp->is_success) |
|
61
|
0 |
1 |
unless ($content =~ /id="ascii"/) |
|
62
|
0 |
0 |
if ($content =~ /
|
|
|
0 |
0 |
elsif (length $content > 100) { } |
|
73
|
1 |
0 |
if ($resp->content =~ m[(http://[a-z0-9]+\.[a-z0-9]+\.xsl\.pt)]x) |
|
89
|
1 |
1 |
unless my $tinyurl_url = shift() |
|
94
|
0 |
1 |
unless $tinyurl_url =~ m[http://[a-z0-9]+\.[a-z0-9]+\.xsl\.pt] |
|
98
|
0 |
1 |
unless ($resp->is_redirect) |
|
100
|
0 |
0 |
if ($content =~ /Error/) { } |
|
101
|
0 |
0 |
if ($content =~ /
|
|
|
0 |
0 |
elsif (length $content > 100) { } |