File Coverage

blib/lib/Audio/Nama/Lat.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	8	9	88.8
pod	0	5	0.0
total	36	46	78.2

package Audio::Nama::Lat;
use Modern::Perl;
our @ISA;
use Data::Dumper::Concise;
use overload '+' => \&add_latency,
			 "\"\"" => sub { join ' ',$_[0]->min, $_[0]->max };
sub new {
	my $class = shift;
	my ($min, $max) = @_;
	defined $min and defined $max or die "undefined field: min: $min or max; $max";
	die "Lat object has Min ($min) greater than Max ($max)" if $min > $max;
	my $self = bless [$min, $max], $class;
	$self;
}
sub add_latency {
	my (@latencies) = @_[0,1]; # throw away swap argument
	my ($min, $max) = (0,0);
	map{ $min += $_->min; $max += $_->max } @latencies;
	Audio::Nama::Lat->new($min, $max);
}
sub min {$_[0]->[0] }
sub max {$_[0]->[1] }
sub values { $_[0]->min, $_[0]->max }

1;
__END__