CSS::Tiny::Style::_sel_arr.pm

{
    use CSS::Tiny::Style (); 
    no warnings 'redefine';
    sub CSS::Tiny::Style::_sel_arr {
        local $_ = shift;
        my @d; 

        while ($_) {
            my ($tag, $op);

            # s/([a-zA-Z0-9.\#\*]+)\s*$//; $tag = $1;
            s/([\w.\#\*\-\:]+)\s*$//; $tag = $1; 
            $op  = $1 if (s/(\s*[+>]*\s*)$//);

            push @d, $tag if $tag;

            for ($op) {
                /\+/    && do { push @d, 'left';    last; };
                /\>/    && do { push @d, 'parent';  last; };
                /^\s+$/ && do { push @d, 'lineage'; last; };
            }   
        }   
        return @d; 
    }   
}