| blib/lib/DBI/Shell/Spool.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 20 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 50 | 2 | 2 | unless (@args) |
| 51 | 1 | 1 | if ($sh->is_spooling) { } |
| 62 | 1 | 1 | if ($command =~ /\boff/i) |
| 63 | 1 | 0 | if ($sh->is_spooling) |
| 83 | 0 | 1 | if ($command =~ /on/i) |
| 84 | 0 | 0 | unless (@args or not $args[0] =~ /!/) |
| 92 | 0 | 1 | if (@args and $args[0] =~ /!/) |
| 99 | 0 | 1 | defined $spool_file ? : |
| 101 | 1 | 0 | if (defined $spool_file) |
| 102 | 0 | 1 | unless my $tee_fh = 'IO::Tee'->new($out_fh, 'IO::File'->new($spool_file, $mode)) |