| line |
true |
false |
branch |
|
31
|
57 |
19 |
defined $$self{$attr} ? : |
|
|
76 |
21 |
unless @_ |
|
40
|
6 |
1 |
if ($uri) { } |
|
49
|
4 |
2 |
if (grep(($_ eq $program), @segments)) { } |
|
|
1 |
1 |
elsif (grep(($_ =~ /$action_re/), @segments)) { } |
|
53
|
1 |
3 |
unless shift @segments |
|
87
|
1 |
22 |
defined $$self{'userinfo'} ? : |
|
|
23 |
13 |
unless @_ |
|
91
|
13 |
0 |
if ($self->robot) |
|
92
|
0 |
13 |
if ($userinfo) { } |
|
105
|
30 |
8 |
defined $$self{'robot'} ? : |
|
|
38 |
9 |
unless @_ |
|
128
|
8 |
1 |
unless ($self->robot) |
|
135
|
1 |
7 |
if exists $args{'cookie_file'} |
|
144
|
1 |
8 |
if keys %args |
|
156
|
5 |
8 |
$self->secure ? : |
|
157
|
0 |
13 |
if $self->userinfo |
|
170
|
0 |
0 |
unless $mech->forms |
|
176
|
0 |
0 |
if ($form = $mech->form_with_fields('password')) { } |
|
|
0 |
0 |
elsif ($form = $mech->form_with_fields('adminpw')) { } |
|
198
|
0 |
0 |
if (my $form = $self->_login_form) |
|
200
|
0 |
0 |
if $self->_login_form |
|
204
|
0 |
0 |
if not exists $$self{'version'} and $mech->content =~ /
version (\d+\.\d+\.\d+\w*)
|
|
216
|
0 |
0 |
$_->type eq 'submit' || $_->readonly ? : |
|
278
|
0 |
0 |
if ($options) |
|
297
|
0 |
0 |
if ($mech->form_with_fields('emailpw')) { } |
|
|
0 |
0 |
elsif ($mech->form_with_fields('login-remind')) { } |
|
328
|
0 |
0 |
unless ($mech->content =~ //) |
|
337
|
0 |
0 |
unless $password |
|
360
|
0 |
0 |
if ($options) |
|
384
|
0 |
0 |
if exists $$self{'version'} |