view release on metacpan or  search on metacpan

lib/Data/CSel.pm  view on Meta::CPAN

    my @res = _uniq_objects(map { _sel($opts, $_, @nodes) } @$pexpr );

    if ($opts->{wrap}) {
        require Data::CSel::Selection;
        return Data::CSel::Selection->new(\@res);
    } else {
        return @res;
    }
}

sub csel_each(&;@) { ## no critic: Subroutines::ProhibitSubroutinePrototypes
    my $cb = shift;
    for my $node (csel(@_)) {
        local $_ = $node;
        $cb->($_);
    }
    undef;
}

1;
# ABSTRACT: Select tree node objects using CSS Selector-like syntax