/usr/share/perl5/Audio/Nama/Plug.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 48 49 50 | # ----------- Plug ------------
# it will be useful to represent
# Nama-side and external ports
# and connections
package Audio::Nama::Plug;
use Modern::Perl;
our $VERSION = 1.0;
our @ISA;
use Audio::Nama::Log qw(logpkg);
use Audio::Nama::Globals qw(:all);
use Audio::Nama::Object qw(
direction
type
id
channel
width
client
port
track
chain
);
sub new {
my ($class, %args) = @_;
my $self = bless { channel => 1,
width => 1,
%args }, $class;
$self
}
sub jack_client {
}
sub jack_ports {
}
sub send_type {
}
sub send_id {
}
=comment
my $inplug = Audio::Nama::Plug->new(
direction => 'input',
push @connections, [$inplug, $outplug];
=cut
1
__END__
|