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.08_01";
4             $PROTOCOL = "1.00";
5              
6 24     24   139 use strict;
  24         44  
  24         692  
7 24     24   151 use utf8;
  24         96  
  24         168  
8              
9             sub crypt {
10 2     2 0 2581 my $class = shift;
11 2         15 my ($user, $pass) = @_;
12 2         1271 return crypt($pass, $user);
13             }
14              
15             __END__