The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Device::BlinkStick

SYNOPSIS

use 5.10.0 ;
use strict ;
use warnings ;
use Device::BlinkStick;

my $bs = Device::BlinkStick->new() ;
# get the first blinkstick found
my $device = $bs->first() ;
# make it red
$first->set_color( 'red') ;

sleep( 2) ;
# blink red for 5s (5000ms) on and off for 250ms
$first->blink( 'red', 5000, 250) ;    

DESCRIPTION

See Also

left to do from python version

def _usb_get_string(self, device, length, index):
def get_led_data(self):
def data_to_message(self, data):
def set_random_color(self):
def turn_off(self):
def pulse(self, red=0, green=0, blue=0, name=None, hex=None, repeats=1, duration=1000, steps=50):
def blink(self, red=0, green=0, blue=0, name=None, hex=None, repeats=1, delay=500):
def morph(self, red=0, green=0, blue=0, name=None, hex=None, duration=1000, steps=50):
def open_device(self, d):
new
devices

Get all blinkstick devices available

first

Get the first blicnk stick device found

verbose

output some debug as things happen

2 POD Errors

The following errors were encountered while parsing the POD:

Around line 41:

=over without closing =back

Around line 73:

=over without closing =back