File Coverage

blib/lib/RPC/Serialized/Server/UCSPI/TCP.pm
Criterion Covered Total %
statement 12 15 80.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 23 69.5


line stmt bran cond sub pod time code
1             package RPC::Serialized::Server::UCSPI::TCP;
2             {
3             $RPC::Serialized::Server::UCSPI::TCP::VERSION = '1.123630';
4             }
5              
6 1     1   856 use strict;
  1         3  
  1         44  
7 1     1   5 use warnings FATAL => 'all';
  1         1  
  1         51  
8              
9 1     1   5 use base 'RPC::Serialized::Server::UCSPI';
  1         2  
  1         524  
10              
11 1     1   9 use RPC::Serialized::Exceptions;
  1         4  
  1         12  
12              
13             sub subject {
14 0     0 0   my $self = shift;
15              
16 0 0         my $remote = $ENV{TCPREMOTEINFO}
17             or throw_authz 'TCPREMOTEINFO not set';
18              
19 0           return $remote;
20             }
21              
22             1;
23              
24             # ABSTRACT: RPC server managed by DJB's ucspi-tpc
25              
26              
27             __END__