File Coverage

blib/lib/Metabrik/String/Base64.pm
Criterion Covered Total %
statement 9 22 40.9
branch 0 4 0.0
condition n/a
subroutine 3 6 50.0
pod 1 3 33.3
total 13 35 37.1


line stmt bran cond sub pod time code
1             #
2             # $Id$
3             #
4             # string::base64 Brik
5             #
6             package Metabrik::String::Base64;
7 1     1   1091 use strict;
  1         4  
  1         30  
8 1     1   5 use warnings;
  1         2  
  1         29  
9              
10 1     1   5 use base qw(Metabrik);
  1         2  
  1         278  
11              
12             sub brik_properties {
13             return {
14 0     0 1   revision => '$Revision$',
15             tags => [ qw(unstable encode decode) ],
16             author => 'GomoR ',
17             license => 'http://opensource.org/licenses/BSD-3-Clause',
18             commands => {
19             encode => [ qw($data) ],
20             decode => [ qw($data) ],
21             },
22             require_modules => {
23             'MIME::Base64' => [ ],
24             },
25             };
26             }
27              
28             sub encode {
29 0     0 0   my $self = shift;
30 0           my ($data) = @_;
31              
32 0 0         $self->brik_help_run_undef_arg('encode', $data) or return;
33              
34 0           my $encoded = MIME::Base64::encode_base64($data, '');
35 0           chomp($encoded);
36              
37 0           return $encoded;
38             }
39              
40             sub decode {
41 0     0 0   my $self = shift;
42 0           my ($data) = @_;
43              
44 0 0         $self->brik_help_run_undef_arg('decode', $data) or return;
45              
46 0           my $decoded = MIME::Base64::decode_base64($data);
47 0           chomp($decoded);
48              
49 0           return $decoded;
50             }
51              
52             1;
53              
54             __END__