File Coverage

blib/lib/Mojo/XMLRPC/Base64.pm
Criterion Covered Total %
statement 15 16 93.7
branch 2 2 100.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 21 24 87.5


line stmt bran cond sub pod time code
1             package Mojo::XMLRPC::Base64;
2              
3 3     3   19 use Mojo::Base -base;
  3         7  
  3         22  
4 3     3   503 use Mojo::Util;
  3         6  
  3         212  
5              
6 3     3   16 use overload bool => sub {1}, '""' => sub { shift->encoded }, fallback => 1;
  3     0   11  
  3         37  
  0         0  
  2         9  
7              
8             has 'encoded';
9              
10             sub decoded {
11 2     2 0 4063 my $self = shift;
12 2 100       12 if (@_) {
13 1         17 $self->encoded(Mojo::Util::b64_encode($_[0], ''));
14 1         8 return $self;
15             }
16 1         6 return Mojo::Util::b64_decode($self->encoded);
17             }
18              
19             1;
20