/usr/share/perl5/Audio/Nama/Lat.pm is in nama 1.208-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | 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__
|