| 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) |