| line |
true |
false |
branch |
|
19
|
17 |
2 |
defined $args{'ignore_wait'} && $args{'ignore_wait'} ? : |
|
21
|
0 |
19 |
unless my $p = 'HTML::TokeParser'->new(\$mech->content) |
|
26
|
2 |
161 |
if $$token[0] eq 'E' and $$token[1] eq 'head' |
|
29
|
144 |
17 |
if not defined $url or $url eq '' |
|
31
|
2 |
15 |
if ($waiting and defined $sec) |
|
46
|
26 |
135 |
if ($$token[0] eq 'S' and $$token[1] eq 'meta') |
|
47
|
26 |
0 |
if (defined $$token[2] and ref $$token[2] eq 'HASH') |
|
48
|
17 |
9 |
if (defined $$token[2]{'http-equiv'} and $$token[2]{'http-equiv'} =~ /^refresh$/io) |
|
49
|
17 |
0 |
if (defined $$token[2]{'content'} and $$token[2]{'content'} =~ /^(([0-9]+)\s*;\s*)*url\='?([^']+)'?$/io) |