File Coverage

blib/lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	8	8	100.0
condition	5	5	100.0
subroutine	13	13	100.0
pod	0	6	0.0
total	68	74	91.8

package SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
use strict;
use warnings;
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);

my %value_of :ATTR(:get :init_arg :default<()>);

# don't you never dare to play with this !
our $___value = \%value_of;

## use $_[n] for speed - we get called zillions of times...
# and we don't need to return the last value...
sub set_value { $value_of{ ${ $_[0] } } = $_[1] }

# Default attribute handling
# TODO add something for handling default attributes
sub attr {
}

# use $_[n] for speed.
# This is less readable, but notably faster.
#
# use postfix-if for speed. This is slightly faster, as it saves
# perl from creating a pad (variable context).
#
# The methods below may get called zillions of times, so
# every little statement matters...

sub serialize {
    $_[1] ||= {};
    if (not defined $value_of{ ${$_[0]} }) {
        return $_[0]->start_tag({ %{ $_[1] },  nil => 1 }, undef);
    }
    return join q{}
        , $_[0]->start_tag($_[1], $value_of{ ${$_[0]} })
        , $value_of{ ${$_[0]} }
        , $_[0]->end_tag($_[1]);
}

sub as_string :STRINGIFY {
    return defined($value_of { ${ $_[0] } }) ? $value_of { ${ $_[0] } } : q{};
}

sub as_bool :BOOLIFY {
    return $value_of { ${ $_[0] } };
}

my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();

sub new {
    my $self = pop @{ $OBJECT_CACHE_REF->{ $_[0] } };
    $self = bless \(my $o = Class::Std::Fast::ID()), $_[0]
        if not defined $self;
    $value_of{ $$self } = $_[1]->{ value }
        if (($#_) && exists $_[1]->{ value });
    return $self;
}

Class::Std::initialize();   # make :BOOLIFY overloading serializable

1;