| line |
true |
false |
branch |
|
25
|
153 |
0 |
if ($interface eq 'get_set') { }
|
|
31
|
850 |
1352 |
if (@_)
|
|
33
|
0 |
850 |
if (@_ > 1)
|
|
39
|
0 |
0 |
if (@_ == 1 and ref($_[0]) =~ /^(?:HASH|ARRAY)$/) { }
|
|
48
|
0 |
0 |
unless ($id =~ /^\d+$/)
|
|
59
|
483 |
367 |
if (UNIVERSAL::isa($msg, $accept_msg_class)) { }
|
|
77
|
363 |
0 |
if (@_)
|
|
80
|
14 |
349 |
unless defined $id
|
|
85
|
0 |
0 |
if UNIVERSAL::can($error, "id")
|
|
108
|
0 |
0 |
if ($interface eq 'get_set') { }
|
|
114
|
0 |
0 |
if (@_)
|
|
116
|
0 |
0 |
unless defined $_[0]
|
|
120
|
0 |
0 |
if (@_ > 1)
|
|
126
|
0 |
0 |
if (@_ == 1 and ref($_[0]) =~ /^(?:HASH|ARRAY)$/) { }
|
|
135
|
0 |
0 |
unless ($id =~ /^\d+$/)
|
|
147
|
0 |
0 |
if ($self->can('message_for_error_id')) { }
|
|
151
|
0 |
0 |
unless (defined $message)
|
|
169
|
0 |
0 |
if (UNIVERSAL::isa($error, $accept_error_class)) { }
|
|
|
0 |
0 |
elsif (defined $error) { }
|
|
189
|
0 |
0 |
if (@_)
|
|
197
|
0 |
0 |
if (@_ == 1 and ref($_[0]) =~ /^(?:HASH|ARRAY)$/) { }
|
|
206
|
0 |
0 |
unless ($id =~ /^\d+$/)
|
|
216
|
0 |
0 |
if ($self->can('message_for_error_id')) { }
|
|
220
|
0 |
0 |
unless (defined $message)
|
|
237
|
0 |
0 |
if UNIVERSAL::can($error, "id")
|
|
270
|
43 |
0 |
if ($interface eq 'get_set') { }
|
|
276
|
8 |
11 |
if (@_)
|
|
278
|
2 |
6 |
if (not defined $_[0] or ref $_[0] eq "ARRAY" and not @{$_[0];})
|
|
287
|
0 |
11 |
unless $self->{$key}
|
|
|
11 |
6 |
wantarray ? :
|
|
294
|
4442 |
1975 |
if (@_)
|
|
296
|
4422 |
20 |
unless defined $_[0]
|
|
300
|
2 |
18 |
if (@_ > 1)
|
|
306
|
2 |
0 |
if (@_ == 1 and ref($_[0]) =~ /^(?:HASH|ARRAY)$/) { }
|
|
315
|
0 |
2 |
unless ($id =~ /^\d+$/)
|
|
327
|
2 |
0 |
if ($self->can('message_for_error_id')) { }
|
|
331
|
2 |
0 |
unless (defined $message)
|
|
349
|
0 |
18 |
if (UNIVERSAL::isa($error, $accept_error_class)) { }
|
|
|
18 |
0 |
elsif (defined $error) { }
|
|
368
|
0 |
7 |
unless @_
|
|
375
|
0 |
7 |
wantarray ? :
|
|
382
|
0 |
5 |
unless @_
|
|
389
|
0 |
5 |
wantarray ? :
|
|
396
|
32 |
11 |
if (@_)
|
|
404
|
11 |
0 |
$self->{$key}[-1] ? :
|
|
411
|
0 |
1 |
if (@_)
|
|
416
|
0 |
0 |
wantarray ? :
|
|
419
|
1 |
0 |
if (defined(my $want = wantarray))
|
|
421
|
0 |
1 |
unless $self->{$key}
|
|
422
|
1 |
0 |
$want ? :
|
|
432
|
0 |
1 |
unless @_
|
|
439
|
0 |
1 |
if (defined(my $want = wantarray))
|
|
442
|
0 |
0 |
$want ? :
|
|
452
|
0 |
68 |
unless @_
|
|
459
|
0 |
68 |
if (defined(my $want = wantarray))
|
|
462
|
0 |
0 |
$want ? :
|
|
468
|
21 |
17 |
unless +(shift())->{$key}
|
|
479
|
0 |
43 |
if $word =~ /[aeiouy]ss$/i
|
|
498
|
0 |
113 |
if @$args == 1 and ref $args->[0] eq "ARRAY"
|
|
508
|
5 |
114 |
if (UNIVERSAL::isa($arg, $accept_error_class))
|
|
517
|
3 |
111 |
if ($id_method and not $id =~ /^\d+$/)
|
|
525
|
57 |
57 |
if (ref($$args[$i + 1]) =~ /^(?:HASH|ARRAY)$/) { }
|
|
|
0 |
109 |
elsif ($singular and $i + 1 < $#$args) { }
|
|
539
|
105 |
9 |
if ($id =~ /^\d+$/) { }
|
|
541
|
105 |
0 |
if ($self->can('message_for_error_id')) { }
|
|
545
|
68 |
37 |
unless (defined $message)
|