File Coverage

blib/lib/WebService/GData/Error/Entry.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	6	10	60.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	32	36	88.8

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

our $VERSION  = 1.02;

WebService::GData::install_in_package([qw(internalreason domain code location)],
	sub {
		my $func=shift;
	    return sub {
			my $this = shift;
			if(@_==1){
				$this->{$func}=$_[0];
			}
			return $this->{$func};
		};
});

	sub __init {
		my ($this,$xmlerror) = @_;
		$this->_parse($xmlerror);
	}

	sub serialize {
		my $this = shift;
		my $xml='';
		   $xml.=''.$this->internalreason.'' if($this->internalreason);
		   $xml.=''.$this->code.'' if($this->code);
		   $xml.=''.$this->domain.'' if($this->domain);
		   $xml.="".$this->location->{content}.'' if($this->location);
	       $xml.='';
		return $xml;
	}

	private _parse => sub {
		my ($this,$error) = @_;
		if($error){
			my ($domain)  = $error=~m/(.+?)<\/domain>/;
			my ($code)    = $error=~m/(.+?)<\/code>/;
			my $location  = {};
			($location->{type})    = $error=~m//gmxi;

			($location->{content}) = $error=~m/'>(.+?)<\/location>/gmxi;
			my ($internalreason)   = $error=~m/(.+?)<\/internalreason>/gmxi;
			$this -> code($code);
			$this -> internalreason($internalreason);
			$this -> domain($domain);
			$this -> location($location);
		}
	};

"The earth is blue like an orange.";

__END__