/usr/share/perl5/Audio/Nama/Regions.pm is in nama 1.208-1.
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 | # ------------ Region routines ----------
package Audio::Nama;
use Modern::Perl; use Carp;
sub set_region {
my ($beg, $end) = @_;
$this_track->set(region_start => $beg);
$this_track->set(region_end => $end);
show_region();
}
sub new_region {
my ($beg, $end, $name) = @_;
$name ||= new_region_name();
add_track_alias($name, $this_track->name);
set_region($beg,$end);
}
sub new_region_name {
my $name = $this_track->name . '_region_';
my $i;
map{ my ($j) = /_(\d+)$/; $i = $j if $j > $i; }
grep{/$name/} keys %Audio::Nama::Track::by_name;
$name . ++$i
}
sub remove_region {
if (! $this_track->region_start){
throw($this_track->name, ": no region is defined. Skipping.");
return;
} elsif ($this_track->target ){
pager($this_track->name, ": looks like a region... removing.");
$this_track->remove;
} else { undefine_region() }
}
sub undefine_region {
$this_track->set(region_start => undef );
$this_track->set(region_end => undef );
pager($this_track->name, ": Region definition removed. Full track will play.\n");
}
1;
__END__
|