Protocol::XMLRPC::Value - a base class for scalar values

Protocol-XMLRPC documentation

Contained in the Protocol-XMLRPC distribution.

Index

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

Code Index:

package Protocol::XMLRPC::Value
- new
- value
- to_string
__END__
EOF

NAME

Protocol::XMLRPC::Value - a base class for scalar values

SYNOPSIS

    package Protocol::XMLRPC::Value::Boolean;

    use strict;
    use warnings;

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

    ...

    1;

DESCRIPTION

This is a base class for all scalar types. Used internally.

ATTRIBUTES

`value`

Hold parameter value.

METHODS

`new`

Returns new Protocol::XMLRPC::Value instance.

`to_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;

use strict;
use warnings;

use overload '""' => sub { shift->to_string }, fallback => 1;

sub new {
    my $class = shift;

    my $value; $value = shift if @_ % 2;

    my $self = {@_};
    bless $self, $class;

    $self->value($value) if defined $value;

    return $self;
}

sub value { defined $_[1] ? $_[0]->{value} = $_[1] : $_[0]->{value} }

sub to_string { '' }

1;
__END__