| line |
true |
false |
branch |
|
51
|
0 |
779 |
unless $self->_validate_key($key)
|
|
75
|
0 |
2 |
unless $self->_validate_overlap_flags($flags, "compress")
|
|
89
|
4 |
4 |
unless (exists $seen_idx{$lkey})
|
|
103
|
2 |
2 |
if ($flags) { }
|
|
155
|
0 |
130 |
unless defined $sub
|
|
158
|
130 |
0 |
if (ref $sub eq 'CODE') { }
|
|
|
0 |
0 |
elsif (not ref $sub) { }
|
|
165
|
0 |
0 |
unless ($name =~ /::/)
|
|
173
|
0 |
0 |
unless $code
|
|
182
|
1 |
129 |
if (scalar @filter)
|
|
187
|
0 |
2 |
unless defined $k
|
|
198
|
4 |
632 |
if (scalar %filter)
|
|
200
|
1 |
3 |
unless $filter{$e->{'lkey'}}
|
|
204
|
1 |
634 |
unless $ok
|
|
218
|
0 |
0 |
if (@_)
|
|
223
|
0 |
0 |
if warnings::enabled(scalar caller)
|
|
233
|
0 |
743 |
unless $self->_validate_key($key)
|
|
238
|
679 |
64 |
if (wantarray)
|
|
244
|
2578 |
233 |
if $e->{'lkey'} ne $lkey
|
|
253
|
217 |
14 |
if $e->{'lkey'} ne $lkey
|
|
264
|
0 |
5 |
unless $self->_validate_key($key)
|
|
274
|
2 |
3 |
if $e->{'lkey'} ne $lkey
|
|
290
|
0 |
2 |
unless $self->_validate_table($other)
|
|
291
|
0 |
2 |
unless $self->_validate_overlap_flags($flags)
|
|
298
|
2 |
1 |
if ($flags) { }
|
|
300
|
0 |
2 |
unless $self->merge($e->{'key'}, $e->{'val'})
|
|
304
|
0 |
1 |
unless $self->set($e->{'key'}, $e->{'val'})
|
|
314
|
0 |
1 |
unless $self->_validate_table($other)
|
|
354
|
0 |
0 |
if @_
|
|
365
|
0 |
21 |
unless $self->_validate_key($key)
|
|
376
|
2 |
9 |
if $e->{'lkey'} eq $lkey
|
|
391
|
0 |
443 |
unless $self->_validate_key($key)
|
|
401
|
22 |
545 |
if $e->{'lkey'} eq $lkey
|
|
417
|
12 |
4 |
if (defined $st->{'_tied_href'})
|
|
453
|
805 |
0 |
defined $val ? :
|
|
459
|
0 |
1991 |
if (not defined $key or ref $key)
|
|
470
|
0 |
4 |
unless defined $flags
|
|
472
|
0 |
4 |
unless ($flags =~ /^\d+\z/)
|
|
478
|
0 |
4 |
if ($flags != 0 and $flags != 1)
|
|
489
|
0 |
3 |
unless (builtin::blessed($other) and $other->isa("MM::Table"))
|
|
507
|
0 |
4 |
unless (defined $table and ref $table eq "MM::Table")
|
|
544
|
0 |
3 |
unless defined $key and not ref $key
|
|
551
|
2 |
2 |
if $e->{'lkey'} eq $lkey
|
|
561
|
0 |
8 |
unless defined $key and not ref $key
|
|
571
|
6 |
2 |
if (defined $self->{'_curr'})
|
|
574
|
6 |
0 |
if ($idx >= 0 and $idx < scalar @$src)
|
|
577
|
5 |
1 |
if $e->{'lkey'} eq $lkey
|
|
584
|
0 |
3 |
if $e->{'lkey'} ne $lkey
|
|
605
|
1 |
3 |
if ($self->{'_iter'} >= scalar @$src)
|
|
621
|
0 |
2 |
unless defined $key and not ref $key
|