| blib/lib/Shell/Source.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 20 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 2 | unless $$self{'shell'} |
| 37 | 0 | 2 | unless $$self{'run'} |
| 41 | 2 | 0 | if length $$self{'file'} |
| 49 | 0 | 2 | unless length $$self{'file'} |
| 51 | 0 | 2 | unless my $fh = $$self{'fh'} = 'FileHandle'->new($run) |
| 54 | 0 | 2 | unless $fh->close |
| 65 | 50 | 2 | if ($line =~ /^(\w+)=(.*)$/) { } |
| 68 | 3 | 47 | if (!defined($ENV{$1}) || $ENV{$1} ne $2 and not grep({$1 eq $_;} @{$$self{'ignore'};})) |
| 76 | 2 | 0 | unless $env |
| 105 | 2 | 0 | if defined $$self{'output'} |