view release on metacpan or  search on metacpan

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

90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
}
 
# 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 ) = @_;