view release on metacpan or  search on metacpan

bin/dtwmic  view on Meta::CPAN

    return {
        type    => $device_type,
        sysname => $parent->get_sysname(),
        data    => {
            name => $name
        }
    };
}

sub _enable_touchpads($$) {
    my $toushpads = shift;
    my $is_enable = shift;

    for my $toushpad (values(%$toushpads)) {
        my $cmd = $is_enable ? $config->{'touchpadon'} : $config->{'touchpadoff'};

        if (ref($cmd) eq '') { # legacy
            $cmd =~ s/(?<=^|[^\\])\$TOUCHPAD_NAME(?=[^a-zA-Z_\d]|$)/$toushpad->{'name'}/;
            $cmd = [$cmd];
        }

bin/dtwmic  view on Meta::CPAN

            }
        }
        else {
            return;
        }

        system(@$cmd);
    }
}

sub _update_state() {
    my $touchpads = {};
    my $has_mouse_devices = 0;

    my $enumerate = $udev->new_enumerate() or
        die("Can't create enumerate context: $@");

    $enumerate->add_match_subsystem('input') or
        die("Can't add match subsystem: $!");

    $enumerate->scan_devices() or