/usr/share/perl5/Audio/Nama/Region_subs.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 | # ------------ Region routines ----------
package Audio::Nama;
use Modern::Perl; use Carp;
our ($this_track);
sub set_region {
my ($beg, $end) = @_;
$this_track->set(region_start => $beg);
$this_track->set(region_end => $end);
Audio::Nama::Text::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){
say $this_track->name, ": no region is defined. Skipping.";
return;
} elsif ($this_track->target ){
say $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 );
print $this_track->name, ": Region definition removed. Full track will play.\n";
}
1;
__END__
|