/usr/share/perl5/Audio/Nama/Group.pm is in nama 1.078-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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | package Audio::Nama::Group;
use Modern::Perl;
no warnings qw(uninitialized redefine);
our $VERSION = 1.0;
#use Exporter qw(import);
#our @EXPORT_OK =qw(group);
use Carp;
our(%by_name, $debug);
*debug = \$Audio::Nama::debug;
our @ISA;
# use Audio::Nama::Object qw( name
# rw
# version
# n
# );
sub tracks { # returns list of track names in group
my $group = shift;
map{ $_->name } grep{ $_->group eq $group->name } Audio::Nama::Track::all();
}
sub last {
#$debug and say "group: @_";
my $group = shift;
my $max = 0;
map{
my $track = $_;
my $last;
$last = $track->last || 0;
#print "track: ", $track->name, ", last: $last\n";
$max = $last if $last > $max;
} map { $Audio::Nama::Track::by_name{$_} } $group->tracks;
$max;
}
sub all { values %by_name }
sub remove {
my $group = shift;
delete $by_name{$group->name};
}
1;
__END__
|