17
ˆ
ƒdN;ľ Ã
Index of /FSS-BCZ/root/sys/class/input/mouse1/subsystem/input4/mouse0/device
Index of /FSS-BCZ/root/sys/class/input/mouse1/subsystem/input4/mouse0/device
ˆ
0Á¾Â / ˆl–Ðz¾” Jn-jq@5p ¸ËªbÑ¿À
ƒd@k_‹ uÐb
&=LV[(ÀÄ „ package less;
use strict;
use warnings;
our $VERSION = '0.03';
sub _pack_tags {
return join ' ', @_;
}
sub _unpack_tags {
return grep { defined and length }
map { split ' ' }
grep {defined} @_;
}
sub stash_name { $_[0] }
sub of {
my $class = shift @_;
# If no one wants the result, don't bother computing it.
return unless defined wantarray;
my $hinthash = ( caller 0 )[10];
my %tags;
@tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
if (@_) {
exists $tags{$_} and return !!1 for @_;
return;
}
else {
return keys %tags;
}
}
sub import {
my $class = shift @_;
my $stash = $class->stash_name;