| blib/lib/Devel/FIXME.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 22 | 33 | 66.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 58 | 0 | 0 | 6 | ref $INC[0] and $INC[0] == $self |
| 147 | 10 | 0 | 10 | ref $_[0] and reftype($_[0]) eq 'HASH' |
| 177 | 0 | 2 | 2 | @_ == 2 and first sub { $_[1] eq "&$_" unless $_[1] eq $_; } , @EXPORT_OK, map({":$_";} keys %EXPORT_TAGS) |
| 189 | 0 | 5 | 20 | UNIVERSAL::can($_[0], 'isa') and $_[0]->isa('Devel::FIXME') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 163 | 11 | 25 | 0 | $$self{'package'} ||= (&CORE::GLOBAL::caller(1))[0] |
| 164 | 24 | 12 | 0 | $$self{'file'} ||= (&CORE::GLOBAL::caller(1))[1] |
| 165 | 24 | 12 | 0 | $$self{'line'} ||= (&CORE::GLOBAL::caller(1))[2] |
| 168 | 11 | 25 | 0 | $$self{'script'} ||= $0 |
| 169 | 11 | 25 | 0 | $$self{'time'} ||= localtime |
| 177 | 4 | 1 | 4 | @_ == 1 or @_ > 2 |
| 5 | 0 | 4 | @_ == 1 or @_ > 2 or @_ == 2 and first sub { $_[1] eq "&$_" unless $_[1] eq $_; } , @EXPORT_OK, map({":$_";} keys %EXPORT_TAGS) |