| blib/lib/BerkeleyDB/Easy/Common.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 64 | 4.6 |
| line | l | !l | condition |
|---|---|---|---|
| 227 | 0 | 0 | !$opt && ' my @err; ' |
| 0 | 0 | !$opt && ' local ($!, $^E); ' | |
| 0 | 0 | !$opt && ' local $SIG{__DIE__} = ' | |
| 0 | 0 | !$opt && ' local $SIG{__WARN__} = ' | |
| 0 | 0 | $opt <= 1 && ' undef $BerkeleyDB::Error; ' | |
| 0 | 0 | !$opt && ' $self->_log(@err) if @err; ' |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 227 | 0 | 0 | 0 | !$opt && " sub { \@err = ($D, \$_) }; " |
| 0 | 0 | 0 | !$opt && " sub { \@err = ($W, \$_) }; " | |
| 0 | 0 | 0 | $decl && " my ($decl); " | |
| 0 | 0 | 0 | $send ne '@_' && " my $keep = ${isa}::$func(\$self, $send); " | |
| 0 | 0 | 0 | $send eq '@_' && " my $keep = &${isa}::$func; " | |
| 0 | 0 | 0 | $keep eq '$return' && " my ${\'$status';} = ${isa}::status(\$self); " | |
| 0 | 0 | 0 | !$opt && " \$self->_throw(${\'$status';}); " | |
| 0 | 0 | 0 | $opt && " \$self->_throw(${\'$status';}, undef, $opt); " | |
| 0 | 0 | 0 | $fail ne $succ && " return($fail); " | |
| 341 | 0 | 0 | 0 | $catch and not $ok |
| 358 | 0 | 0 | 0 | ref $args[0] && $args[0] |
| line | l | !l | condition |
|---|---|---|---|
| 180 | 0 | 0 | $$spec[5] || 0 |
| 293 | 0 | 0 | $name ||= '__ANON__' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 93 | 0 | 0 | 0 | $log_level ||= $flag_dual |
| 0 | 0 | 7 | $ENV{$flag_name} or _unstrict('BerkeleyDB::Easy::' . ucfirst(lc $level_name)) | |
| 111 | 0 | 1 | 0 | $log_level || BDB_IGNORE |
| 115 | 0 | 0 | 1 | $ENV{'BDB_VERBOSE'} || _unstrict('BerkeleyDB::Easy::Verbose') |
| 294 | 0 | 0 | 0 | $pack ||= caller |