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   23 use Mojo::Base -base;
  3         7  
  3         26  
4 3     3   589 use Mojo::Util;
  3         6  
  3         293  
5              
6 3     3   20 use overload bool => sub {1}, '""' => sub { shift->encoded }, fallback => 1;
  3     2   6  
  3         76  
  0         0  
  2         9  
7              
8             has 'encoded';
9              
10             sub decoded {
11 2     2 0 4240 my $self = shift;
12 2 100       10 if (@_) {
13 1         25 $self->encoded(Mojo::Util::b64_encode($_[0], ''));
14 1         10 return $self;
15             }
16 1         4 return Mojo::Util::b64_decode($self->encoded);
17             }
18              
19             1;
20