Amazon-Dash-Button

 view release on metacpan or  search on metacpan

examples/mpd.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Amazon::Dash::Button ();

use constant MPC => q{/usr/bin/mpc};

die
  "You should run this script as root. Please run:\nsudo $0 [en0|eth0|wlan0]\n"
  if $>;

my $device = $ARGV[0] || q{wlan0};

examples/search.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Amazon::Dash::Button ();

die
  "You should run this script as root. Please run:\nsudo $0 [en0|eth0|wlan0]\n"
  if $>;

my $dev = $ARGV[0] // q{wlan0};

Amazon::Dash::Button->search(

t/Device.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 14;
use Test::Deep;
use FindBin;

use lib $FindBin::Bin. '/../lib';

use_ok q{Amazon::Dash::Button::Device};

my $adb;

ok !eval { Amazon::Dash::Button::Device->new(); 1 }, 'new fail';
like $@, qr{mac address is undefined};

ok eval { Amazon::Dash::Button::Device->new( mac => q{00:11:22:33:44:55}); 1 }, 'new succeeds without onClick';

t/single.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 13;
use Test::Deep;
use FindBin;

use lib $FindBin::Bin. '/../lib';

use_ok q{Amazon::Dash::Button};

my $adb;

$adb = Amazon::Dash::Button->new();
isa_ok $adb, 'Amazon::Dash::Button';

$adb = Amazon::Dash::Button->new( from => {
	# required options