| blib/lib/Devel/FIXME.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 33 | 69.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 58 | 0 | 0 | 3 | 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 | 36 | UNIVERSAL::can($_[0], 'isa') and $_[0]->isa('Devel::FIXME') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 163 | 11 | 41 | 0 | $self->{'package'} ||= (&CORE::GLOBAL::caller(1))[0] |
| 164 | 40 | 12 | 0 | $self->{'file'} ||= (&CORE::GLOBAL::caller(1))[1] |
| 165 | 40 | 12 | 0 | $self->{'line'} ||= (&CORE::GLOBAL::caller(1))[2] |
| 168 | 11 | 41 | 0 | $self->{'script'} ||= $0 |
| 169 | 11 | 41 | 0 | $self->{'time'} ||= localtime |
| 177 | 5 | 1 | 4 | @_ == 1 or @_ > 2 |
| 6 | 2 | 2 | @_ == 1 or @_ > 2 or @_ == 2 and &first(sub { $_[1] eq "&$_" unless $_[1] eq $_; } , @EXPORT_OK, map({":$_";} keys %EXPORT_TAGS)) |