| line |
true |
false |
branch |
|
15
|
4 |
0 |
if ($self->allow) |
|
16
|
1 |
3 |
ref $self->allow ? : |
|
21
|
0 |
3 |
if (/:/) { } |
|
27
|
3 |
1 |
if (@ipv4) |
|
32
|
0 |
4 |
if (@ipv6) |
|
39
|
0 |
4 |
unless ($self->allow and $self->path) |
|
44
|
4 |
0 |
unless ($self->dumper) |
|
62
|
4 |
1 |
if ($path and $env->{'PATH_INFO'} =~ /^$path/) |
|
75
|
1 |
3 |
unless ($self->_allowed($env->{'REMOTE_ADDR'})) |
|
81
|
2 |
1 |
if (my $input_module = $env->{'QUERY_STRING'}) |
|
83
|
1 |
1 |
if (my $mod = 'Module::Info'->new_from_loaded($input_module)) { } |
|
101
|
0 |
4 |
if ($address =~ /:/) |
|
102
|
0 |
0 |
unless $self->{'__cidr6'} |
|
105
|
1 |
3 |
unless $self->{'__cidr4'} |