| line |
true |
false |
branch |
|
29
|
57 |
19 |
defined $self->{$attr} ? : |
|
|
76 |
21 |
unless @_ |
|
38
|
6 |
1 |
if ($uri) { } |
|
47
|
4 |
2 |
if (grep(($_ eq $program), @segments)) { } |
|
|
1 |
1 |
elsif (grep(($_ =~ /$action_re/), @segments)) { } |
|
51
|
1 |
3 |
unless shift @segments |
|
90
|
1 |
22 |
defined $self->{'userinfo'} ? : |
|
|
23 |
13 |
unless @_ |
|
94
|
13 |
0 |
if ($self->robot) |
|
95
|
0 |
13 |
if ($userinfo) { } |
|
108
|
30 |
8 |
defined $self->{'robot'} ? : |
|
|
38 |
9 |
unless @_ |
|
131
|
8 |
1 |
unless ($self->robot) |
|
142
|
1 |
7 |
if exists $args{'cookie_file'} |
|
147
|
1 |
8 |
if keys %args |
|
159
|
5 |
8 |
$self->secure ? : |
|
160
|
0 |
13 |
if $self->userinfo |
|
177
|
0 |
0 |
unless $mech->forms |
|
183
|
0 |
0 |
if ($form = $mech->form_with_fields('password')) { } |
|
|
0 |
0 |
elsif ($form = $mech->form_with_fields('adminpw')) { } |
|
205
|
0 |
0 |
if (my $form = $self->_login_form) |
|
207
|
0 |
0 |
if $self->_login_form |
|
213
|
0 |
0 |
if not exists $self->{'version'} and $mech->content =~ /
version (\d+\.\d+\.\d+\w*)
|
|
224
|
0 |
0 |
$_->type eq 'submit' || $_->readonly ? : |
|
285
|
0 |
0 |
if ($options) |
|
304
|
0 |
0 |
if ($mech->form_with_fields('emailpw')) { } |
|
|
0 |
0 |
elsif ($mech->form_with_fields('login-remind')) { } |
|
335
|
0 |
0 |
unless ($mech->content =~ //) |
|
344
|
0 |
0 |
unless $password |
|
367
|
0 |
0 |
if ($options) |
|
391
|
0 |
0 |
if exists $self->{'version'} |