File Coverage

blib/lib/RPC/Serialized/AuthzHandler.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 14 16 87.5


line stmt bran cond sub pod time code
1             #
2             # $HeadURL: https://svn.oucs.ox.ac.uk/people/oliver/pub/librpc-serialized-perl/trunk/lib/RPC/Serialized/AuthzHandler.pm $
3             # $LastChangedRevision: 1281 $
4             # $LastChangedDate: 2008-10-01 16:16:56 +0100 (Wed, 01 Oct 2008) $
5             # $LastChangedBy: oliver $
6             #
7             package RPC::Serialized::AuthzHandler;
8             {
9             $RPC::Serialized::AuthzHandler::VERSION = '1.123630';
10             }
11              
12 18     18   730 use strict;
  18         39  
  18         907  
13 18     18   136 use warnings FATAL => 'all';
  18         29  
  18         2416  
14              
15             sub new {
16 8     8 0 1718 my $class = shift;
17              
18 8         57 return bless {}, $class;
19             }
20              
21             sub check_authz {
22 15     15 0 517 my $self = shift;
23 15         72 return 1;
24             }
25              
26             1;
27