1package Protocol::XMLRPC::Value::String; 2 3use strict; 4use warnings; 5 6use base 'Protocol::XMLRPC::Value'; 7 8sub type {'string'} 9 10sub to_string { 11 my $self = shift; 12 13 my $value = $self->value; 14 15 $value =~ s/&/&/g; 16 $value =~ s/</</g; 17 $value =~ s/>/>/g; 18 19 return "<string>$value</string>"; 20} 21 221; 23__END__ 24 25=head1 NAME 26 27Protocol::XMLRPC::Value::String - XML-RPC array 28 29=head1 SYNOPSIS 30 31 my $string = Protocol::XMLRPC::Value::String->new('Hello, world!'); 32 33=head1 DESCRIPTION 34 35XML-RPC string 36 37=head1 ATTRIBUTES 38 39=head1 METHODS 40 41=head2 C<new> 42 43Creates new L<Protocol::XMLRPC::Value::String> instance. 44 45=head2 C<type> 46 47Returns 'string'. 48 49=head2 C<value> 50 51 my $string = Protocol::XMLRPC::Value::String->new('foo'); 52 # $string->value returns 'foo' 53 54Returns serialized Perl5 scalar. 55 56=head2 C<to_string> 57 58 my $string = Protocol::XMLRPC::Value::String->new('foo'); 59 # $string->to_string is now '<string>foo</string>' 60 61XML-RPC string string representation. 62