view release on metacpan or  search on metacpan

lib/WebService/Belkin/WeMo/Device.pm  view on Meta::CPAN

		} else {
		    return "unknown";
		}
	}
	else {
		croak "Got status code " . $resp->getstatuscode() . "!\n";
	}

}

sub on() {

	my $self = shift;
	
    if ($self->getType() eq "sensor") {
        warn "Method only supported for switches, not sensors.\n";
	    return;
	}

	my $resp =
	  $self->{_basicService}