File Coverage

blib/lib/WWW/Postini/Assert.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	6	66.6
condition	3	6	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	35	40	87.5

package WWW::Postini::Assert;

use strict;
use warnings;

use WWW::Postini::Exception::AssertionFailure;
use Exporter;

use vars qw( @ISA @EXPORT $VERSION );

@ISA = qw( Exporter );
@EXPORT = qw( assert );
$VERSION = '0.01';

sub assert {

	my $value = shift;
	my $description = shift if defined $_[0];

	unless (defined $value && $value) {

		my $description = sprintf 'Assertion%sfailed',
			defined $description && length $description ? " '$description' " : ' '
		;
		throw WWW::Postini::Exception::AssertionFailure($description);

	}

	1;

}

1;

__END__