The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

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

SYNOPSIS

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" }

DESCRIPTION

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

METHODS

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

AUTHOR

Eric Blue <ericblue76@gmail.com> - http://eric-blue.com

COPYRIGHT

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.