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/</&lt;/g;
17    $value =~ s/>/&gt;/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