File Coverage

blib/lib/WebService/GData/Error.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	2	2	100.0
condition			n/a
subroutine	7	8	87.5
pod	3	3	100.0
total	33	35	94.2

package WebService::GData::Error;
use WebService::GData 'private';
use base 'WebService::GData';

use WebService::GData::Error::Entry;

our $VERSION  = 1.02;

	#avoid stringification
	sub __to_string {
		shift();
	}

	sub __init {
		my ($this,$statecode,$errstr) = @_;
		$this->{_statecode} = $statecode;
		$this->{_errstr}    = $errstr;

		$this->{_errors} = [];
		$this->_parse() if($errstr);
		return $this;
	}

	sub code {
		my $this = shift;
		return $this->{_statecode};
	}

	sub content {
		my $this = shift;
		return $this->{_errstr};
	}

	sub errors {
		my $this = shift;
		return $this->{_errors};
	}

	private _parse => sub {
		my ($this) = @_;
		my @errors = $this->{_errstr}=~m/(.+?)<\/error>/gms;
		foreach my $error (@errors) {
		   my $entry  = new WebService::GData::Error::Entry($error);
		   push @{$this->{_errors}},$entry;
		}
	};

"The earth is blue like an orange.";

__END__