| blib/lib/Brackup/Decrypt.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 24 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 45 | 88 | unless $meta and $$meta{'GPG-Recipient'} |
| 31 | 0 | 88 | unless open my $fh, '>', $file |
| 33 | 0 | 88 | unless close $fh |
| 34 | 0 | 88 | unless -s $file == length $$ref |
| 42 | 0 | 13 | if ($meta =~ /[\x00-\x08]/) |
| 44 | 0 | 0 | if (defined $new_file) |
| 62 | 0 | 88 | if %opts |
| 65 | 88 | 0 | if ($meta) |
| 66 | 0 | 88 | unless my $rcpt = $$meta{'GPG-Recipient'} |
| 70 | 0 | 88 | unless ($ENV{'GPG_AGENT_INFO'} or @Brackup::GPG_ARGS or $warned_about_gpg_agent++) |
| 87 | 88 | 0 | !$opts{'no_batch'} ? : |
| 94 | 0 | 88 | if system @list |