| blib/lib/Devel/REPL/Script.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 26 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 0 | 0 | unless $profile =~ /::/ |
| 41 | 0 | 0 | unless $profile->does("Devel::REPL::Profile") |
| 50 | 0 | 0 | unless ($rc_file =~ m[/]) |
| 51 | 0 | 0 | $^O eq 'MSWin32' && "$]" < 5.016 ? : |
| 60 | 0 | 0 | if (not -e $script) { } |
| 0 | 0 | elsif (not -r _) { } | |
| 61 | 0 | 0 | if $warn_on_unreadable |
| 65 | 0 | 0 | if $warn_on_unreadable |
| 69 | 0 | 0 | unless open RCFILE, "<", $script |
| 74 | 0 | 0 | if $@ |
| 90 | 0 | 0 | unless @opts == 1 and $opts[0] eq "run" |
| 95 | 0 | 0 | if ref $_[0] |
| 96 | 0 | 0 | unless $CURRENT_SCRIPT |