File Coverage

blib/lib/RPC/Serialized/Server/UCSPI/IPC.pm
Criterion Covered Total %
statement 12 16 75.0
branch 0 4 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 26 61.5


line stmt bran cond sub pod time code
1             package RPC::Serialized::Server::UCSPI::IPC;
2             {
3             $RPC::Serialized::Server::UCSPI::IPC::VERSION = '1.123630';
4             }
5              
6 1     1   847 use strict;
  1         2  
  1         43  
7 1     1   6 use warnings FATAL => 'all';
  1         2  
  1         55  
8              
9 1     1   5 use base 'RPC::Serialized::Server::UCSPI';
  1         1  
  1         601  
10              
11 1     1   10 use RPC::Serialized::Exceptions;
  1         3  
  1         11  
12              
13             sub subject {
14 0     0 0   my $self = shift;
15              
16 0 0         my $uid = $ENV{IPCREMOTEEUID}
17             or throw_authz 'IPCREMOTEEUID not set';
18              
19 0 0         my $username = getpwuid($uid)
20             or throw_authz 'getpwuid $uid failed';
21              
22 0           return $username;
23             }
24              
25             1;
26              
27             # ABSTRACT: RPC server managed by ucspi-ipc
28              
29              
30             __END__