| line |
true |
false |
branch |
|
148
|
0 |
9 |
if $self->use_config and $self->has_config_file |
|
151
|
8 |
1 |
unless $self->sid |
|
158
|
0 |
7 |
if $self->sid |
|
160
|
0 |
7 |
unless $self->email and $self->password |
|
163
|
0 |
7 |
unless $self->email =~ /@/ |
|
170
|
0 |
7 |
if $$result{'failure'} |
|
190
|
7 |
0 |
if ($res->is_success) { } |
|
215
|
1 |
5 |
unless (ref $value) |
|
223
|
5 |
0 |
if ($$value{'filename'}) |
|
244
|
27 |
10 |
if ref $url eq 'ARRAY' |
|
254
|
26 |
11 |
if ($method eq 'get' or $method eq 'head') { } |
|
255
|
3 |
23 |
if @args |
|
265
|
10 |
1 |
if (@args) |
|
266
|
5 |
5 |
if (grep ref($_), @args) { } |
|
281
|
0 |
11 |
if ($res->is_success and $res->content_type eq 'text/html') |
|
288
|
37 |
0 |
if ($res->is_success) { } |
|
309
|
1 |
1 |
if $self->strict_arguments |
|
319
|
2 |
1 |
if $self->strict_arguments |
|
331
|
0 |
1 |
if $self->strict_arguments |
|
343
|
0 |
1 |
if $self->strict_arguments |
|
364
|
6 |
20 |
if (@_ == 1) { } |
|
369
|
7 |
13 |
if (ref $_[1] eq 'ARRAY') { } |
|
388
|
5 |
2 |
if (ref $action eq 'ARRAY') { } |
|
394
|
0 |
5 |
unless $operation =~ /^(?:create|update|delete)$/i |
|
405
|
1 |
13 |
if $$action_spec{$arg}{'mandatory'} and not defined $args{$arg} |
|
410
|
2 |
4 |
if (keys %args) |
|
422
|
6 |
1 |
unless ($self->action_specs->{$name}) |
|
433
|
0 |
0 |
unless ($self->model_specs->{$name}) |
|
445
|
0 |
0 |
if $self->ua->cookie_jar->as_string =~ /\Q$cookie\E=([^;]+)/ |
|
469
|
0 |
0 |
unless my($y, $m, $d) = $ymd =~ /^(\d\d\d\d)-(\d\d)-(\d\d)(?: 00:00:00)?$/ |
|
487
|
0 |
0 |
defined $a ? : |
|
|
0 |
0 |
defined $b ? : |
|
|
0 |
0 |
unless (defined $a ? 1 : 0) == (defined $b ? 1 : 0) |
|
490
|
0 |
0 |
unless defined $a or defined $b |
|
497
|
0 |
0 |
if $_ eq 'nobody' or // |
|
509
|
0 |
0 |
unless defined $email |
|
523
|
0 |
0 |
if $self->can($key) |
|
528
|
0 |
0 |
unless $self->config->{'email'} or $self->config->{'sid'} |
|
531
|
0 |
0 |
unless ($self->config->{'sid'}) |
|
534
|
0 |
0 |
unless ($self->sid) |
|
550
|
0 |
0 |
if $^O eq 'MSWin32' |
|
551
|
0 |
0 |
unless -e $file |
|
554
|
0 |
0 |
if ($mode & 32 or $mode & 4) |
|
564
|
0 |
0 |
unless -e $file |
|
568
|
0 |
0 |
if ($self->config->{'site'}) |
|
620
|
0 |
0 |
if eval {
do {
$self->login
}
} |
|
632
|
0 |
0 |
unless $self->use_filters |
|
647
|
0 |
0 |
if (-r $file) |
|
653
|
0 |
0 |
if $parent eq $dir |