/usr/share/perl5/Net/Appliance/Session/Async.pm is in libnet-appliance-session-perl 4.142720-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 | package Net::Appliance::Session::Async;
{
$Net::Appliance::Session::Async::VERSION = '4.142720';
}
use Moo::Role;
sub put {
my ($self, $cmd, $opts) = @_;
$opts ||= {};
return $self->nci->transport->put($cmd,
($opts->{no_ors} ? () : $self->nci->transport->ors));
}
sub say { return $_[0]->put( $_[1] ) }
sub gather {
my ($self, $opts) = @_;
$opts ||= {};
$opts->{no_ors} = 1; # force no newline
return $self->cmd('', $opts);
}
1;
|