File Coverage

blib/lib/Net/DirectConnect/hubhub.pm
Criterion Covered Total %
statement 21 25 84.0
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 1 0.0
total 28 34 82.3


line stmt bran cond sub pod time code
1             #$Id: hubhub.pm 998 2013-08-14 12:21:20Z pro $ $URL: svn://svn.setun.net/dcppp/trunk/lib/Net/DirectConnect/hubhub.pm $
2             #reserved for future 8)
3             package #hide from cpan
4             Net::DirectConnect::hubhub;
5 1     1   1363 use Net::DirectConnect;
  1         4  
  1         24  
6 1     1   4 use strict;
  1         2  
  1         29  
7 1     1   5 no strict qw(refs);
  1         2  
  1         23  
8 1     1   5 use warnings "NONFATAL" => "all";
  1         1  
  1         30  
9 1     1   5 no warnings qw(uninitialized);
  1         1  
  1         31  
10 1     1   11 no if $] >= 5.017011, warnings => 'experimental::smartmatch';
  1         2  
  1         5  
11             our $VERSION = ( split( ' ', '$Revision: 998 $' ) )[1];
12 1     1   89 use base 'Net::DirectConnect';
  1         4  
  1         121  
13              
14             sub init {
15 0     0 0   my $self = shift;
16 0           %$self = ( %$self, @_ );
17 0           $self->{'parse'} = {};
18 0           $self->{'cmd'} = {};
19             }
20             1;