File Coverage

blib/lib/Net/Appliance/Session/Async.pm
Criterion Covered Total %
statement 3 11 27.2
branch 0 2 0.0
condition 0 4 0.0
subroutine 1 4 25.0
pod 0 3 0.0
total 4 24 16.6


line stmt bran cond sub pod time code
1             package Net::Appliance::Session::Async;
2             { $Net::Appliance::Session::Async::VERSION = '4.300003' }
3              
4 1     1   506 use Moo::Role;
  1         3  
  1         6  
5              
6             sub put {
7 0     0 0   my ($self, $cmd, $opts) = @_;
8 0   0       $opts ||= {};
9             return $self->nci->transport->put($cmd,
10 0 0         ($opts->{no_ors} ? () : $self->nci->transport->ors));
11             }
12              
13 0     0 0   sub say { return $_[0]->put( $_[1] ) }
14              
15             sub gather {
16 0     0 0   my ($self, $opts) = @_;
17 0   0       $opts ||= {};
18 0           $opts->{no_ors} = 1; # force no newline
19 0           return $self->cmd('', $opts);
20             }
21              
22             1;