File Coverage

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

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	23	23	100.0

package Protocol::XMLRPC::Value::String;

use strict;
use warnings;

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

sub type {'string'}

sub to_string {
    my $self = shift;

    my $value = $self->value;

    $value =~ s/&/&/g;
    $value =~ s/
    $value =~ s/>/>/g;

    return "$value";
}

1;
__END__