File Coverage

blib/lib/RPC/Serialized/Handler/Echo.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


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/Handler/Echo.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::Handler::Echo;
8             {
9             $RPC::Serialized::Handler::Echo::VERSION = '1.123630';
10             }
11              
12 5     5   33 use strict;
  5         10  
  5         273  
13 5     5   42 use warnings FATAL => 'all';
  5         9  
  5         305  
14              
15 5     5   26 use base 'RPC::Serialized::Handler';
  5         9  
  5         9355  
16              
17             sub invoke {
18 12     12 0 23 my $self = shift;
19 12         79 return [@_];
20             }
21              
22             1;
23