File Coverage

blib/lib/Error/TypeTiny/WrongNumberOfParameters.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	9	10	90.0
condition	12	12	100.0
subroutine	12	12	100.0
pod	7	7	100.0
total	66	68	97.0

package Error::TypeTiny::WrongNumberOfParameters;

use 5.008001;
use strict;
use warnings;

BEGIN {
	$Error::TypeTiny::WrongNumberOfParameters::AUTHORITY = 'cpan:TOBYINK';
	$Error::TypeTiny::WrongNumberOfParameters::VERSION   = '2.010001';
}

$Error::TypeTiny::WrongNumberOfParameters::VERSION =~ tr/_//d;

require Error::TypeTiny;
our @ISA = 'Error::TypeTiny';

sub minimum { $_[0]{minimum} }
sub maximum { $_[0]{maximum} }
sub got     { $_[0]{got} }
sub target  { $_[0]{target} }

sub has_minimum { exists $_[0]{minimum} }
sub has_maximum { exists $_[0]{maximum} }
sub has_target  { exists $_[0]{target} }

sub _build_message {
	my $e = shift;

	my $base = 'Wrong number of parameters';
	if ( $e->has_target ) {
		$base .= sprintf( ' to %s', $e->target );
	}

	if ( $e->has_minimum and $e->has_maximum and $e->minimum == $e->maximum ) {
		return sprintf(
			"%s; got %d; expected %d",
			$base,
			$e->got,
			$e->minimum,
		);
	}
	elsif ( $e->has_minimum and $e->has_maximum and $e->minimum < $e->maximum ) {
		return sprintf(
			"%s; got %d; expected %d to %d",
			$base,
			$e->got,
			$e->minimum,
			$e->maximum,
		);
	}
	elsif ( $e->has_minimum ) {
		return sprintf(
			"%s; got %d; expected at least %d",
			$base,
			$e->got,
			$e->minimum,
		);
	}
	elsif ( $e->has_maximum ) {
		return sprintf(
			"%s; got %d; expected at most %d",
			$base,
			$e->got,
			$e->maximum,
		);
	}
	else {
		return sprintf(
			"%s; got %d",
			$base,
			$e->got,
		);
	}
} #/ sub _build_message

1;

__END__