File Coverage

blib/lib/Protocol/BitTorrent/Message/Choke.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 2 50.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Protocol::BitTorrent::Message::Choke;
2             {
3             $Protocol::BitTorrent::Message::Choke::VERSION = '0.004';
4             }
5 1     1   5 use strict;
  1         1  
  1         29  
6 1     1   5 use warnings FATAL => 'all', NONFATAL => 'redefine';
  1         2  
  1         37  
7 1     1   4 use parent qw(Protocol::BitTorrent::Message);
  1         1  
  1         4  
8              
9             =head1 NAME
10              
11             Protocol::BitTorrent::Message::Choke - choke message support
12              
13             =head1 VERSION
14              
15             version 0.004
16              
17             =cut
18              
19             =head1 METHODS
20              
21             =cut
22              
23             =head2 new
24              
25             =cut
26              
27             sub new_from_data {
28 1     1 0 2 my $class = shift;
29 1         3 my $self = bless {
30             }, $class;
31 1         7 $self;
32             }
33              
34 2     2 1 13 sub type { 'choke' }
35              
36             1;
37              
38             __END__