File Coverage

blib/lib/Pod/WSDL/Param.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	8	8	100.0
condition	4	7	57.1
subroutine	4	4	100.0
pod	1	1	100.0
total	35	38	92.1

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

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

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

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

	defined $str or $str = ''; # avoids warnings, dies soon
	$str =~ s/\s*_(INOUT|IN|OUT)\s*//i or die "Input string '$str' does not begin with '_IN', '_OUT' or '_INOUT'";

	my $paramType = $1;

	my ($name, $type, $descr) = split /\s+/, $str, 3;

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

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

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

1;
__END__