File Coverage

blib/lib/Event/RPC.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 12 13 92.3


line stmt bran cond sub pod time code
1             package Event::RPC;
2              
3             $VERSION = "1.10";
4             $PROTOCOL = "1.00";
5              
6 31     31   270 use strict;
  31         45  
  31         696  
7 31     31   136 use utf8;
  31         43  
  31         138  
8              
9             sub crypt {
10 9     9 0 11218 my $class = shift;
11 9         63 my ($user, $pass) = @_;
12 9         4512 return crypt($pass, $user);
13             }
14              
15             __END__