The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Power-Outlet-0.50
River stage zero No dependents
3 ++
/ Power::Outlet::Virtual

NAME

Power::Outlet::Virtual - Control and query a Virtual Outlet

SYNOPSIS

  my $outlet = Power::Outlet::iBootBar->new(id => 1);
  print $outlet->query, "\n";
  print $outlet->on, "\n";
  print $outlet->off, "\n";

DESCRIPTION

Power::Outlet::Virtual is a package for controlling and querying a virtual outlet where the state is stored in a temp file.

USAGE

CONSTRUCTOR

new

  my $outlet = Power::Outlet->new(type=>"Virtual", id=>1);
  my $outlet = Power::Outlet::Virtual->new;

PROPERTIES

id

Sets and returns the outlet unique id.

Default: 1

METHODS

query

Returns current state of the virtual outlet

on

Sends a TCP/IP message to the iBoot device to Turn Power ON

off

Sends a TCP/IP message to the iBoot device to Turn Power OFF

switch

Queries the device for the current status and then requests the opposite.

cycle

Cycle Power (ON-OFF-ON or OFF-ON-OFF).

BUGS

Please log on RT and send an email to the author.

SUPPORT

DavisNetworks.com supports all Perl applications including this package.

AUTHOR

  Michael R. Davis
  CPAN ID: MRDVT
  DavisNetworks.com

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO