File Coverage

blib/lib/Pod/WSDL/Return.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	6	6	100.0
condition	6	7	85.7
subroutine	4	4	100.0
pod	1	1	100.0
total	34	35	97.1

package Pod::WSDL::Return;
use strict;
use warnings;
use Pod::WSDL::AUTOLOAD;

our $VERSION = "0.05";
our @ISA = qw/Pod::WSDL::AUTOLOAD/;

our %FORBIDDEN_METHODS = (
	type  => {get => 1, set =>  0},
	array => {get => 1, set =>  0},
	descr => {get => 1, set =>  0},
);

sub new {
	my ($pkg, $str) = @_;

	defined $str or $str = ''; # avoids warnings, dies soon
	$str =~ s/\s*_RETURN\s*//i;
	my ($type, $descr) = split /\s+/, $str, 2;

	$type ||= ''; # avoids warnings, dies soon

	$type =~ /([\$\@])(.+)/;
	die "Type '$type' must have structure (\$|\@), e.g. '\$boolean' or '\@string', died" unless $1 and $2;

	bless {
		_type   => $2,
		_descr  => $descr || '',
		_array  => $1 eq '@' ? 1 : 0,
	}, $pkg;
}

1;
__END__