File Coverage

blib/lib/Protocol/XMLRPC/Value/Base64.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	29	29	100.0

package Protocol::XMLRPC::Value::Base64;

use strict;
use warnings;

use base 'Protocol::XMLRPC::Value';

require MIME::Base64;

sub type {'base64'}

sub parse {
    my $class = shift;
    my ($value) = @_;

    die "Invalid 'Base64' value" unless $value =~ m/^[A-Za-z0-9\+\/=]+$/;

    return $class->new(MIME::Base64::decode_base64($value));
}

sub to_string {
    my $self = shift;

    my $value = $self->value;

    $value = MIME::Base64::encode_base64($value);

    return "$value";
}

1;
__END__