| line |
true |
false |
branch |
|
58
|
0 |
13 |
unless (defined $value) |
|
66
|
1 |
12 |
if (length $value == 0) |
|
70
|
1 |
11 |
if ($value =~ /\s/) |
|
75
|
11 |
0 |
if ($value =~ m[([a-zA-Z0-9\-/\.:\?&_=#!]+)]) { } |
|
82
|
2 |
9 |
if ($value =~ m[^http://www.facebook.com/(.+)]) { } |
|
|
0 |
9 |
elsif ($value =~ /^www\.facebook\.com/) { } |
|
|
6 |
3 |
elsif (not $value =~ m[^https://(www|m).facebook.com/]) { } |
|
92
|
0 |
3 |
unless ($self->SUPER::is_valid) |
|
100
|
0 |
11 |
if ($ENV{'HTTP_ACCEPT_LANGUAGE'}) |
|
112
|
4 |
7 |
unless ($webdoc->is_success) |
|
113
|
0 |
4 |
if ($error_code == 301 || $error_code == 302 and $webdoc->as_string =~ /^location: (.+)$/im) { } |
|
|
0 |
4 |
elsif ($error_code != 404) { } |
|
116
|
0 |
0 |
if ($location =~ m[^https?://(www|m).facebook.com/pages/.+]) { } |
|
121
|
0 |
0 |
if ($location =~ m[^https?://(www|m).facebook.com/login.php\?next=\Q$e\E]) |