/usr/share/perl5/Audio/Nama/Custom.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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | # ---------------- User Customization ---------------
package Audio::Nama;
use Modern::Perl;
sub setup_user_customization {
my $filename = $file->user_customization();
# effect aliases from .namarc
for( keys %{$config->{alias}->{effect}} )
{ my $longform = $config->{alias}->{effect}->{$_};
if(effect_index($longform))
{
$fx_cache->{partial_label_to_full}->{$_} =
$fx_cache->{partial_label_to_full}->{$longform}
}
else
{ throw("$longform: effect not found, cannot create shortcut")
}
}
return unless -r $filename;
say("reading user customization file $filename");
my %custom;
unless (%custom = do $filename) {
throw("couldn't parse $filename: $@\n") if $@;
return;
}
logpkg(__FILE__,__LINE__,'debug','customization :', sub{Dumper \%custom });
my $prompt;
{ no warnings 'redefine';
*prompt = $custom{prompt} if $custom{prompt};
}
my @commands = keys %{ $custom{commands} };
for my $cmd(@commands){
#my $coderef = gen_coderef($cmd,$custom{commands}{$cmd}) or next;
$text->{user_command}->{$cmd} = $custom{commands}{$cmd};
}
$config->{alias} = $custom{aliases};
}
sub gen_coderef {
my ($cmd,$code) = @_;
my $coderef = eval "sub{ use feature ':5.10'; no warnings 'uninitialized'; $code }";
throw("couldn't parse command $cmd: $@"), return if $@;
$coderef
}
1;
|