view release on metacpan or  search on metacpan

lib/Net/UPnP/Service.pm  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
# Net::Net::UPnP::Service
#-----------------------------------------------------------------
 
use strict;
use warnings;
 
use Net::UPnP;
use Net::UPnP::ActionResponse;
use Net::UPnP::QueryResponse;
 
use vars qw($_DEVICE $_DEVICE_DESCRIPTION $SERVICETYPE $SERVICEID $SCPDURL $CONTROLURL $EVENTSUBURL);
 
$_DEVICE = 'device';
$_DEVICE_DESCRIPTION = 'device_description';
 
$SERVICETYPE = 'serviceType';
$SERVICEID = 'serviceId';
$SCPDURL = 'SCPDURL';
$CONTROLURL = 'controlURL';
$EVENTSUBURL = 'eventSubURL';
 
#------------------------------
# new
#------------------------------
 
sub new {

lib/Net/UPnP/Service.pm  view on Meta::CPAN

74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
        }
        $this->{$Net::UPnP::Service::_DEVICE_DESCRIPTION};
 }
 
#------------------------------
# getservicetype
#------------------------------
 
sub getservicetype() {
        my($this) = shift;
        $this->getdevicedescription(name => $Net::UPnP::Service::SERVICETYPE);
 }
 
#------------------------------
# getserviceid
#------------------------------
 
sub getserviceid() {
        my($this) = shift;
        $this->getdevicedescription(name => $Net::UPnP::Service::SERVICEID);
 }