File Coverage

blib/lib/Pod/WSDL/Fault.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	4	4	100.0
subroutine	4	4	100.0
pod	1	1	100.0
total	29	29	100.0

package Pod::WSDL::Fault;
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},
	descr     => {get => 1, set =>  0},
	wsdlName  => {get => 1, set =>  0},
);

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

	$str ||= '' ;  # avoid warnings here, will die soon
	$str =~ s/^\s*_FAULT\s*//i or die "_FAULT statements must have structure '_FAULT  ', like '_FAULT My::Fault This is my documentation'";
	my ($type, $descr) = split /\s+/, $str, 2;

	my $wsdlName = $type;
	$wsdlName =~ s/::(.)/uc $1/eg;

	$descr ||= '';

	bless {
		_type     => $type,
		_descr    => $descr,
		_wsdlName => ucfirst $wsdlName,
	}, $pkg;
}

1;
__END__