# NOTE: Derived from lib/Apache/Session/Browseable/_common.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Apache::Session::Browseable::_common;

#line 52 "lib/Apache/Session/Browseable/_common.pm (autosplit into blib/lib/auto/Apache/Session/Browseable/_common/searchOnExpr.al)"
sub searchOnExpr {
    my ( $class, $args, $selectField, $value, @fields ) = splice @_;
    $value = quotemeta($value);
    $value =~ s/\\\*/\.\*/g;
    $value = qr/^$value$/;
    my %res = ();
    $class->get_key_from_all_sessions(
        $args,
        sub {
            my $entry = shift;
            my $id    = shift;
            return undef unless ( $entry->{$selectField} =~ $value );
            if (@fields) {
                $res{$id}->{$_} = $entry->{$_} foreach (@fields);
            }
            else {
                $res{$id} = $entry;
            }
            undef;
        }
    );
    return \%res;
}

1;

1;
# end of Apache::Session::Browseable::_common::searchOnExpr