Eric Blue
and 1 contributors


WebService::Belkin::Wemo::Discover - Discover devices with UPNP


Sample Usage:

my $wemoDiscover = WebService::Belkin::WeMo::Discover->new();

# Perform UPNP Search for all Belkin WeMo switches my $discovered = $wemoDiscover->search();

# Save device info to make API calls faster - eliminates search on startup $wemoDiscover->save("/tmp/belkin.db");

# Load from storage my $discovered = $wemoDiscover->load("/tmp/belkin.db");

foreach my $ip (keys %{$discovered}) { print "IP = $ip\n"; print "Friendly Name = $discovered->{$ip}->{'name'}\n" }


The Belkin WeMo Switch lets you turn electronic devices on or off from anywhere inside--or outside--your home. The WeMo Switch uses your existing home Wi-Fi network to provide wireless control of TVs, lamps, stereos, and more. This library allows basic control of the switches (turning on/off and getting device info) through UPNP


    * search - Performs UPNP search
    * save - Saves searched devices to disk
    * load - Loads searched devices from disk


Eric Blue <> -


Copyright (c) 2013 Eric Blue. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.