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 5 5 100.0
pod 0 1 0.0
total 22 24 91.6


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