view release on metacpan or  search on metacpan

lib/Config/XrmDatabase/Util.pm  view on Meta::CPAN

sub normalize_key( $key ) {
    $key =~ s/[$TIGHT]?[$LOOSE][$TIGHT]?/$LOOSE/g;
    return $key;
}

lib/Config/XrmDatabase/Util.pm  view on Meta::CPAN

sub is_wildcard( $string ) {
    return $string eq TIGHT || $string eq LOOSE;
}


1;

__END__

=pod