File Coverage

blib/lib/Cache/Memcached/AnyEvent/Protocol.pm
Criterion Covered Total %
statement 3 7 42.8
branch n/a
condition n/a
subroutine 1 3 33.3
pod 2 2 100.0
total 6 12 50.0


line stmt bran cond sub pod time code
1             package Cache::Memcached::AnyEvent::Protocol;
2 1     1   7 use strict;
  1         2  
  1         106  
3              
4             sub new {
5 0     0 1   my $class = shift;
6 0           my $self = bless {@_}, $class;
7 0           return $self;
8             }
9              
10 0     0 1   sub prepare_handle {}
11              
12             1;
13              
14             __END__