| line |
true |
false |
branch |
|
41
|
0 |
0 |
unless $self->brik_help_run_undef_arg("decode", $input) |
|
42
|
0 |
0 |
unless $self->brik_help_run_file_not_found("decode", $input) |
|
43
|
0 |
0 |
unless $self->brik_help_run_undef_arg("decode", $output) |
|
45
|
0 |
0 |
unless my $fr_in = "Metabrik::File::Raw"->new_from_brik_init($self) |
|
47
|
0 |
0 |
unless my $string = $fr_in->read($input) |
|
49
|
0 |
0 |
unless my $sb = "Metabrik::String::Base64"->new_from_brik_init($self) |
|
50
|
0 |
0 |
unless my $decoded = $sb->decode($string) |
|
52
|
0 |
0 |
unless my $fr_out = "Metabrik::File::Raw"->new_from_brik_init($self) |
|
56
|
0 |
0 |
unless $fr_out->write($decoded, $output) |
|
65
|
0 |
0 |
unless $self->brik_help_run_undef_arg("decode_from_string", $input_string) |
|
66
|
0 |
0 |
unless $self->brik_help_run_undef_arg("decode_from_string", $output) |
|
68
|
0 |
0 |
unless my $sb = "Metabrik::String::Base64"->new_from_brik_init($self) |
|
69
|
0 |
0 |
unless my $decoded = $sb->decode($input_string) |
|
71
|
0 |
0 |
unless my $fr = "Metabrik::File::Raw"->new_from_brik_init($self) |
|
75
|
0 |
0 |
unless $fr->write($decoded, $output) |
|
84
|
0 |
0 |
unless $self->brik_help_run_undef_arg("encode", $input) |
|
85
|
0 |
0 |
unless $self->brik_help_run_file_not_found("encode", $input) |
|
86
|
0 |
0 |
unless $self->brik_help_run_undef_arg("encode", $output) |
|
88
|
0 |
0 |
unless my $fr_in = "Metabrik::File::Raw"->new_from_brik_init($self) |
|
90
|
0 |
0 |
unless my $string = $fr_in->read($input) |
|
92
|
0 |
0 |
unless my $sb = "Metabrik::String::Base64"->new_from_brik_init($self) |
|
93
|
0 |
0 |
unless my $encoded = $sb->encode($string) |
|
95
|
0 |
0 |
unless my $fr_out = "Metabrik::File::Raw"->new_from_brik_init($self) |
|
99
|
0 |
0 |
unless $fr_out->write($encoded, $output) |
|
108
|
0 |
0 |
unless $self->brik_help_run_undef_arg("encode_from_string", $input_string) |
|
109
|
0 |
0 |
unless $self->brik_help_run_file_not_found("encode_from_string", $input_string) |
|
110
|
0 |
0 |
unless $self->brik_help_run_undef_arg("encode_from_string", $output) |
|
112
|
0 |
0 |
unless my $sb = "Metabrik::String::Base64"->new_from_brik_init($self) |
|
113
|
0 |
0 |
unless my $encoded = $sb->encode($input_string) |
|
115
|
0 |
0 |
unless my $fr = "Metabrik::File::Raw"->new_from_brik_init($self) |
|
119
|
0 |
0 |
unless $fr->write($encoded, $output) |