File Coverage

blib/lib/WWW/Postini/Exception.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	9	12	75.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	56	60	93.3

package WWW::Postini::Exception;

use strict;
use warnings;

use Exception::Class;

use vars qw( @ISA $VERSION );

@ISA = qw( Exception::Class::Base );
$VERSION = '0.01';

#################
## initializer ##
#################

sub _initialize {

	my $self = shift;
	my %params;

	if (@_ == 1) {

		# passing an exception object as a cause

		if (UNIVERSAL::isa($_[0], 'WWW::Postini::Exception')) {

			$params{'cause'} = shift;

		# passing error text

		} else {

			$params{'error'} = shift;

		}

	} else {

		%params = @_;

	}

	# cause object is defined

	if (defined $params{'cause'}) {

		# set cause and remove parameter unsupported by base class
		my $cause = $self->cause(delete $params{'cause'});

		# call superclass initializer
		$self->SUPER::_initialize(@_);

		# prohibit superclass from using $! as the default message
		$self->{'message'} = ref $cause unless defined $params{'message'};

		my $trace = $self->trace();
		my $cause_trace = $cause->trace();
		my $frame_count = $trace->frame_count();

		# strip any frames already present in cause stack trace

		for my $idx (0..$frame_count - 1) {

			my $frame = $trace->frame($idx);

			if (grep $_->filename() eq $frame->filename()
				&& $_->line() == $frame->line(),
				@{$cause_trace->{'frames'}}
			) {

				splice @{$trace->{'frames'}}, $idx;
				last;

			}

		}

	} else {

		$self->SUPER::_initialize(%params);

	}

}

######################
## accessor methods ##
######################

# cause

sub cause {

	my $self = shift;

	if (@_) {

		$self->{'cause'} = shift

	}

	$self->{'cause'};

}

1;

__END__