File Coverage

blib/lib/Protocol/BitTorrent/Message/Uninterested.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::Uninterested;
2             {
3             $Protocol::BitTorrent::Message::Uninterested::VERSION = '0.004';
4             }
5 1     1   3 use strict;
  1         2  
  1         26  
6 1     1   4 use warnings FATAL => 'all', NONFATAL => 'redefine';
  1         1  
  1         27  
7 1     1   3 use parent qw(Protocol::BitTorrent::Message);
  1         2  
  1         3  
8              
9             =head1 NAME
10              
11             Protocol::BitTorrent::Message::Uninterested - indication of disinterest
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 4 my $class = shift;
29 1         5 my $self = bless {
30             }, $class;
31 1         6 $self;
32             }
33              
34 2     2 1 19 sub type { 'uninterested' }
35              
36             1;
37              
38             __END__