File Coverage

blib/lib/Net/UPnP.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 19 84.2


line stmt bran cond sub pod time code
1             package Net::UPnP;
2              
3             #-----------------------------------------------------------------
4             # UPnP
5             #-----------------------------------------------------------------
6              
7 1     1   75151 use version;
  1         1942  
  1         14  
8 1     1   123 use strict;
  1         3  
  1         31  
9 1     1   7 use warnings;
  1         3  
  1         45  
10              
11 1     1   8 use vars qw($VERSION $DEBUG $SSDP_ADDR $SSDP_PORT);
  1         3  
  1         109  
12              
13              
14             $VERSION = '1.4.4';
15             $DEBUG = 0;
16              
17             $SSDP_ADDR = '239.255.255.250';
18             $SSDP_PORT = 1900;
19              
20             #------------------------------
21             # id
22             #------------------------------
23              
24             sub SetDebug() {
25 0     0 0   $DEBUG = $_[0];
26             }
27              
28             1;
29              
30             __END__