| blib/lib/App/Pocosi/ReadLine.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 20 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 0 | if @_ & 1 |
| 84 | 0 | 0 | if (defined $ex and $ex eq 'interrupt') |
| 89 | 0 | 0 | if (defined $line and length $line) |
| 92 | 0 | 0 | if (my($feature) = $line =~ /^(verbose|trace)\s*$/) { } |
| 0 | 0 | elsif (my($cmd, $args) = $line =~ m[^/([a-z_]+)\s*(.+)?]) { } | |
| 0 | 0 | elsif (my($method, $params) = $line =~ /^\.([a-z_]+)\s*(.+)?/) { } | |
| 93 | 0 | 0 | if ($$self{'Pocosi'}->$feature) { } |
| 103 | 0 | 0 | defined $args ? : |
| 107 | 0 | 0 | defined $params ? : |
| 113 | 0 | 0 | if (my $err = $@) |