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)