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   57398 use version;
  1         1581  
  1         4  
8 1     1   67 use strict;
  1         2  
  1         16  
9 1     1   4 use warnings;
  1         2  
  1         28  
10              
11 1     1   4 use vars qw($VERSION $DEBUG $SSDP_ADDR $SSDP_PORT);
  1         2  
  1         84  
12              
13              
14             $VERSION = '1.4.6';
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__