view release on metacpan or  search on metacpan

examples/bitbang-tickit-ui.pl  view on Meta::CPAN

}

# All pins inputs
Future->needs_all(
    $bb->tris_gpio( DBUS, 0xFF ),
    $bb->tris_gpio( CBUS, 0xFF ),
)->get;

my $tickit = Tickit->new( root => $grid );

sub update_buttons
{
    my ( $port ) = @_;

    my $mask = 0;
    $dirbuttons[$port][$_]->is_active and $mask |= ( 1 << $_ )
        for 0 .. 7;

    $bb->read_gpio( $port, $mask )->on_done( sub {
        my ( $val ) = @_;