File Coverage

blib/lib/Net/RNDC/Exception.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition	1	2	50.0
subroutine	4	4	100.0
pod	1	2	50.0
total	18	20	90.0

package Net::RNDC::Exception;
{
  $Net::RNDC::Exception::VERSION = '0.003';
}

use strict;
use warnings;

sub new {
	my ($class, $error, $level) = @_;

	$level ||= 1;

	my (undef, $file, $line) = caller($level);

	return bless {
		error => $error,
		file  => $file,
		line  => $line,
	}, $class;
}

sub error {
	my ($self) = @_;

	return "'$self->{error}' at '$self->{file}' line '$self->{line}'";
}

1;
__END__