| blib/lib/App/Easer/V2.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 61 | 119 | 51.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 165 | 0 | 0 | 0 | not $_->{'transmit_exact'} and $name =~ /$namerx/u |
| 176 | 154 | 0 | 153 | @args && ref $args[0] |
| 224 | 655 | 3 | 2 | @opts && ref $opts[0] |
| 280 | 0 | 68 | 92 | $strict and @args |
| 68 | 92 | 0 | $strict and @args and $args[0] =~ /\A - . /msux | |
| 289 | 0 | 0 | 295 | defined $o->{'getopt'} and $o->{'getopt'} =~ /\A(\w[-\w]*)/msux |
| 291 | 0 | 0 | 0 | defined $o->{'environment'} and $o->{'environment'} ne 1 |
| 336 | 80 | 150 | 40 | defined $en && exists $ENV{$en} |
| 513 | 0 | 0 | 0 | -e $path and not -d $path |
| 0 | 0 | 0 | -e $path and not -d $path and substr($_, 0, length $bprefix) eq $bprefix | |
| 604 | 4 | 1 | 0 | defined $fto and $fto =~ /\A(?: 0 | [1-9]\d* )\z/u |
| 736 | 1 | 0 | 0 | defined $desttype and $desttype eq "\@" |
| 774 | 15 | 0 | 0 | defined $min and $min > 1 |
| 775 | 15 | 0 | 0 | defined $max and length $max |
| 777 | 14 | 0 | 1 | defined $desttype and $desttype eq "\@" |
| 786 | 1 | 0 | 0 | defined $desttype and $desttype eq "\@" |
| 910 | 0 | 0 | 0 | $name =~ /\A(?: help | commands | tree)\z/msux and $exclude_auto |
| line | l | !l | condition |
|---|---|---|---|
| 78 | 6352 | 0 | $$self{&blessed($self)} //= {} |
| 97 | 135 | 0 | $self->_rwn((caller 1)[3] =~ s/.*:://mrsux, @n) // [] |
| 125 | 33 | 2 | ($s->_rw(@r) // ($s->aliases)[0]) // "**no name**" |
| 154 | 90 | 18 | $_->{'transmit'} // 0 |
| 176 | 37 | 270 | $pkg_spec // {} |
| 319 | 204 | 100 | $env // "" |
| 324 | 102 | 0 | $instance->environment_prefix // "" |
| 343 | 0 | 16 | $key->[0] // "config" |
| 374 | 155 | 0 | $self->_rwn("config") // {} |
| 376 | 155 | 0 | $config->{'merged'} // {} |
| 417 | 0 | 0 | $params_validate->{'config'} // undef |
| 421 | 0 | 0 | $params_validate->{'args'} // undef |
| 575 | 1 | 657 | $class // "" |
| 649 | 64 | 0 | $command->help // "(**missing help**)" |
| 687 | 29 | 0 | $binmode // "" |
| 832 | 21 | 2 | $target->help // "no concise help yet" |
| 852 | 4 | 30 | $opt->{'help'} // "" |
| 868 | 8 | 0 | $opt->{'default'} // "*undef*" |
| 911 | 0 | 0 | $command->help // "(**missing help**)" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 20 | 0 | 0 | 0 | ref $stuff[0] || @stuff % 2 |
| 125 | 11 | 22 | 2 | $s->_rw(@r) // ($s->aliases)[0] |
| 205 | 0 | 827 | 126 | $is_overridable{$dst_key} or not exists $retval{$dst_key} |
| 235 | 336 | 324 | 0 | $meta->{'priority'} //= $last_priority + 10 |
| 533 | 104 | 198 | 140 | $self->force_auto_children // @children |
| 646 | 30 | 0 | 0 | $target //= $self->target |
| 678 | 0 | 29 | 0 | $channel eq "-" or lc $channel eq "-stdout" |
| 704 | 7 | 0 | 0 | $target->call_name // $target->name |
| 795 | 1 | 1 | 17 | $type eq "bool" or $mode eq "increment" |
| 829 | 23 | 0 | 0 | $target //= $self->target |