| blib/lib/Hades.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 75 | 98 | 76.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 58 | 55 | 17 | 0 | $args->{$_} and $mg->$_($args->{$_}) |
| 108 | 1400 | 413 | 157 | $first_char =~ /\s/ && !($ident =~ /^$/) |
| 0 | 157 | 0 | ($nested ? $ident =~ /^(:|\$|\%|\@|\&)/ ? do { | |
| 1748 | 0 | 17 | $first_char =~ /\}/ && do { | |
| 405 | 86 | 2 | 0 | $meta->{$name}{$_} and $mg->$_($self->replace_pe_string($meta->{$name}{$_}, $name)) |
| 434 | 6 | 0 | 0 | $meta->{$name}{$_} and $mg->$_($self->replace_pe_string($meta->{$name}{$_}, $name)) |
| 488 | 38 | 2 | 0 | $meta->{$name}{$_} and $mg->$_($self->replace_pe_string($meta->{$name}{$_}, $name)) |
| 733 | 6 | 0 | 15 | $matches[1] =~ s/\,\s*(\d+)\s*$// && $1 |
| 734 | 6 | 0 | 15 | $matches[1] =~ s/\,\s*(\d+)\s*$// && $1 |
| 855 | 0 | 8 | 6 | @matches and $match =~ /(Map|Tuple|HashRef|ArrayRef|Dict)\[/ |
| 894 | 7 | 4 | 54 | $type and not $type =~ /^(Optional|Any|Item)/ |
| 1016 | 12 | 0 | 30 | $matches[1] =~ s/\,\s*(\d+)\s*$// && $1 |
| 1017 | 12 | 0 | 30 | $matches[1] =~ s/\,\s*(\d+)\s*$// && $1 |
| 1123 | 104 | 8 | 12 | $m++ == 0 && $d > 1 |
| 1137 | 4 | 18 | 12 | @matches and $match =~ /(Map|Tuple|ArrayRef|Dict)\[/ |
| 1159 | 256 | 14 | 20 | $m++ == 0 && $d > 1 |
| 1278 | 3 | 20 | 0 | $meta->{'param'} && do { |
| line | l | !l | condition |
|---|---|---|---|
| 429 | 0 | 3 | $meta->{$name}{'before'} || '' |
| 430 | 1 | 2 | $meta->{$name}{'around'} || 'my @res = $self->$orig(@params);' |
| 431 | 2 | 1 | $meta->{$name}{'after'} || '' |
| 659 | 90 | 44 | $value ||= '$value' |
| 660 | 0 | 134 | $code ||= '' |
| 661 | 75 | 59 | $subcode ||= '' |
| 1025 | 210 | 108 | $matches[1] || 1 |
| 1031 | 30 | 12 | $matches[1] || 0 |
| 1177 | 20 | 1 | $meta->{'type'}[0] || 'Any' |
| 1263 | 35 | 4 | $meta->{'type'}[0] || 'Any' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 42 | 0 | 0 | 908 | $self->debug or $self->verbose |
| 178 | 3 | 1 | 11 | $class{'CURRENT'}{'PARENT'} || $class{'CURRENT'}{'BASE'} |
| 663 | 90 | 39 | 0 | $error_string ||= "die qq{${type}: invalid value $value for accessor $name};" |
| 746 | 15 | 0 | 6 | $matches[1] or $matches[2] |
| 817 | 7 | 0 | 0 | $key_sub_code or $value_sub_code |
| 1262 | 0 | 1 | 38 | $meta->{'no_success_test'} or $meta->{'builder'} |
| 1 | 8 | 30 | $meta->{'no_success_test'} or $meta->{'builder'} or $meta->{'required'} | |
| 8 | 5 | 25 | $meta->{'no_success_test'} or $meta->{'builder'} or $meta->{'required'} or $meta->{'default'} | |
| 1263 | 8 | 1 | 30 | $meta->{'required'} || $meta->{'builder'} |