Branch Coverage

blib/lib/Metabrik/Crypto/Gpg.pm
Criterion Covered Total %
branch 0 66 0.0


line true false branch
75 0 0 unless ($gnupg)
89 0 0 unless $self->brik_help_run_undef_arg('generate_key', $email)
92 0 0 unless $self->brik_help_set_undef_arg('passphrase', $passphrase)
103 0 0 unless my $sr = 'Metabrik::String::Random'->new_from_brik_init($self)
104 0 0 unless my $filename = $sr->filename
107 0 0 unless my $ft = 'Metabrik::File::Text'->new_from_brik_init($self)
171 0 0 unless $self->brik_help_run_undef_arg('delete_key', $id)
205 0 0 unless $self->brik_help_run_undef_arg('import_keys', $file)
219 0 0 unless ($pid)
223 0 0 unless my $ft = 'Metabrik::File::Text'->new_from_brik_init($self)
224 0 0 unless my $data = $ft->read($file)
257 0 0 unless ($pid)
276 0 0 unless $self->brik_help_run_undef_arg('get_public_keys', $keys)
277 0 0 unless $self->brik_help_run_invalid_arg('get_public_keys', $keys, 'ARRAY')
301 0 0 unless ($pid)
320 0 0 unless $self->brik_help_run_undef_arg('get_secret_keys', $keys)
321 0 0 unless $self->brik_help_run_invalid_arg('get_secret_keys', $keys, 'ARRAY')
339 0 0 unless $self->brik_help_run_undef_arg('encrypt', $data)
340 0 0 unless $self->brik_help_run_undef_arg('encrypt', $recipient_list)
341 0 0 unless $self->brik_help_run_invalid_arg('encrypt', $recipient_list, 'ARRAY')
344 0 0 if (ref $data eq 'ARRAY') { }
350 0 0 if (ref $data eq 'SCALAR') { }
392 0 0 unless $self->brik_help_run_undef_arg('decrypt', $data)
394 0 0 unless my $sp = 'Metabrik::String::Password'->new_from_brik_init($self)
397 0 0 unless (defined $passphrase)
402 0 0 if (ref $data eq 'ARRAY') { }
408 0 0 if (ref $data eq 'SCALAR') { }
454 0 0 unless $self->brik_help_run_undef_arg('decrypt_from_file', $file)
455 0 0 unless $self->brik_help_run_file_not_found('decrypt_from_file', $file)
457 0 0 unless my $ft = 'Metabrik::File::Text'->new_from_brik_init($self)
458 0 0 unless my $data = $ft->read($file)
467 0 0 unless $self->brik_help_run_undef_arg('export_keys', $key_id)
484 0 0 unless ($pid)