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.11";
4             $PROTOCOL = "1.00";
5              
6 31     31   222 use strict;
  31         137  
  31         1321  
7 31     31   181 use utf8;
  31         76  
  31         232  
8              
9             sub crypt {
10 9     9 0 18371 my $class = shift;
11 9         86 my ($user, $pass) = @_;
12 9         1296 return crypt($pass, $user);
13             }
14              
15             __END__