Protocol::XMLRPC::Value::String - XML-RPC array

Protocol-XMLRPC documentation

Contained in the Protocol-XMLRPC distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
ATTRIBUTES
METHODS
- new
- type
- value
- to_string
AUTHOR
COPYRIGHT

Code Index:

package Protocol::XMLRPC::Value::String
- type
- to_string
__END__
EOF

NAME

Protocol::XMLRPC::Value::String - XML-RPC array

SYNOPSIS

    my $string = Protocol::XMLRPC::Value::String->new('Hello, world!');

DESCRIPTION

XML-RPC string

ATTRIBUTES

METHODS

`new`

Creates new Protocol::XMLRPC::Value::String instance.

`type`

Returns 'string'.

`value`

    my $string = Protocol::XMLRPC::Value::String->new('foo');
    # $string->value returns 'foo'

Returns serialized Perl5 scalar.

`to_string`

    my $string = Protocol::XMLRPC::Value::String->new('foo');
    # $string->to_string is now '<string>foo</string>'

XML-RPC string string representation.

AUTHOR

Viacheslav Tykhanovskyi, vti@cpan.org.

COPYRIGHT

Copyright (C) 2009, Viacheslav Tykhanovskyi.

This program is free software, you can redistribute it and/or modify it under the same terms as Perl 5.10.

Protocol-XMLRPC documentation

Contained in the Protocol-XMLRPC distribution.

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

    return "<string>$value</string>";
}

1;
__END__