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