package HTML::Zoom::SelectorParser;
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
use base qw(HTML::Zoom::SubObject);
use Carp qw(confess);
my $value = $2;
sub {
$_[0]->{attrs}{$attribute}
- && grep { $_ eq $value } split(' ', $_[0]->{attrs}{$attribute});
+ && $_[0]->{attrs}{$attribute} =~ qr/\b\Q$value\E\b/;
}
};