| lib/Subclass/Of.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 52 | 48.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 90 | 2 | 0 | 0 | @r != 1 and defined wantarray |
| 2 | 0 | 0 | @r != 1 and defined wantarray and not wantarray | |
| 108 | 20 | 0 | 0 | @_ == 1 and ref $_[0] eq 'HASH' |
| 119 | 0 | 13 | 58 | defined $_ and not ref $_ |
| 13 | 20 | 38 | defined $_ and not ref $_ and /^-/ | |
| 279 | 5 | 0 | 0 | exists $opts->{'lazy'} and not $opts->{'lazy'} |
| 283 | 1 | 4 | 0 | exists $opts->{'is'} and not $opts->{'is'} =~ /^(ro|rw|lazy)$/ |
| 290 | 1 | 0 | 0 | &blessed($opts->{'isa'}) and $opts->{'isa'}->can('assert_valid') |
| 294 | 3 | 0 | 1 | exists $opts->{'fieldhash'} and $opts->{'fieldhash'} |
| 315 | 2 | 0 | 0 | exists $opts->{'default'} and not exists $self->{$name} |
| 337 | 2 | 0 | 1 | exists $opts->{'default'} and not exists $self->{$name} |
| line | l | !l | condition |
|---|---|---|---|
| 121 | 0 | 38 | $opts{$key} ||= [] |
| 163 | 0 | 16 | $opts->{'-package'} ||= [sprintf('%s::__SUBCLASS__::%04d', $parent, ++$count{$parent})] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 54 | 1 | 1 | 0 | $subclass ||= do { my $built = $me->_build_subclass($base, \%opts); $i_made_this{&refaddr($current_sub)} = $built; $built } |
| 296 | 0 | 1 | 0 | $fieldhash ||= do { my $impl; $impl ||= eval { do { require Hash::FieldHash; 'Hash::FieldHash' } }; $impl ||= eval { do { require Hash::Util::FieldHash; 'Hash::Util::FieldHash' } }; $impl ||= do { require Hash::Util::FieldHash::Compat; 'Hash::Util::FieldHash::Compat' }; $impl->can('fieldhash') } |
| 298 | 0 | 0 | 1 | $impl ||= eval { do { require Hash::FieldHash; 'Hash::FieldHash' } } |
| 299 | 0 | 1 | 0 | $impl ||= eval { do { require Hash::Util::FieldHash; 'Hash::Util::FieldHash' } } |
| 300 | 1 | 0 | 0 | $impl ||= do { require Hash::Util::FieldHash::Compat; 'Hash::Util::FieldHash::Compat' } |