File Coverage

blib/lib/SolarBeam/Util.pm

Criterion	Covered	Total	%
statement	13	19	68.4
branch	2	2	100.0
condition			n/a
subroutine	3	5	60.0
pod	3	3	100.0
total	21	29	72.4

package SolarBeam::Util;
use Mojo::Base -strict;

use Exporter 'import';

our @EXPORT_OK = qw(escape escape_chars unescape_chars);

my $escape_all   = quotemeta('+-&|!(){}[]^~:\\"*?');
my $escape_chars = quotemeta('+-&|!(){}[]^"~*?:\\');
my $escape_wilds = quotemeta('+-&|!(){}[]^~:\\');

sub escape {
  my $s = shift;
  my $chars;

  if (ref $s) {
    $s = $$s;
    $s =~ s{([$escape_all])}{\\$1}g;
  }
  else {
    $s =~ s{([$escape_wilds])}{\\$1}g;
  }

  return $s;
}

sub escape_chars {
  my $s = shift;
  $s =~ s{([$escape_chars])}{\\$1}g;
  $s;
}

sub unescape_chars {
  my $s = shift;
  $s =~ s{\\([$escape_chars])}{$1}g;
  $s;
}

1;

=encoding utf8

=head1 NAME

SolarBeam::Util - Utility functions for SolarBeam

=head1 SYNOPSIS

    use SolarBeam::Util qw(escape escape_chars unescape_chars);
    say escape_chars "foo?*";

=head1 DESCRIPTION

L contains utility functions for L.

=head1 FUNCTIONS

=head2 escape

  $str = escape $str;

=head2 escape_chars

  $str = escape_chars $str;

The following values must be escaped in a search value:

  + - & | ! ( ) { } [ ] ^ " ~ * ? : \

B Values sent to L are automatically escaped for you.

=head2 unescape_chars

  $str = unescape_chars $str;

Unescapes values escaped in L.

=head1 SEE ALSO

L.

=cut