NAME

Device::BlinkStick

SYNOPSIS

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

    my $bs = Device::BlinkStick->new() ;

    # set first LED on all devices to blue
    my $all_devices = $bs->devices() ;
    foreach my $k ( keys %$all_devices) {
        $all->{$k}->set_color( 'blue') ;
    }

    # get the first blinkstick found
    my $device = $bs->first() ;
    # make it red
    $first->led( color => 'red') ;

    sleep( 2) ;
    # blink red for 5 times, delaying for 250ms between black and the color
    $first->blink( color => 'red', delay => 250, times => 5) ;    

DESCRIPTION

Module to control a number of blinkstick devices http://blinkstick.com connected via USB.

new

Instantiate a new object, also finds all currently connected devices and populates the accessor method variables

parameters

verbose

output some debug as things happen

access methods

devices

Get all blinkstick device Device::BlinkStick::Stick objects available as a hash ref

    my $bs = Device::BlinkStick->new() ;
    my $devices = $bs->devices() ;

first

Get the first blink stick device (object Device::BlinkStick::Stick) found

    my $bs = Device::BlinkStick->new() ;
    my $device = $bs->first() ;
    # make it red
    $first->led( color => 'red') ;

refresh_devices

Check the USB for any added or removed devices and update our internal list

Returns all blinkstick device objects available as a hash ref

    my $bs = Device::BlinkStick->new() ;
    my $current = $bs->refresh_devices() ;

find

Find a device by name or serial number

    my $bs = Device::BlinkStick->new() ;
    my $d = $bs->find( 'strip') ;   # I have a device I've named strip!
    $d->set_mode( 3) ;
    $d->led( color => 'green') ;       # set all LEDs to green

name

The name or serial number to match

Returns undef if fails to match a device