File Coverage

blib/lib/String/Unquotemeta.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	26	26	100.0

package String::Unquotemeta;

use strict;
use warnings;

$String::Unquotemeta::VERSION = '0.1';

sub import {
    no strict 'refs';    # I know, PBG says not to do this helps keep it very simple and light
    *{ caller() . '::unquotemeta' } = \&unquotemeta;
}

# I know, PBP says no prototypes and I very much agree but I want it to
# behave like quotemeta() without a lot of fuss (see tests for details)
sub unquotemeta(;$) {
    my ($string) = scalar(@_) ? $_[0] : $_;    # quotemeta() "If EXPR is omitted, uses $_."
    return '' if !defined $string;             # quotemeta() undef behavior

    $string =~ s/(?:\\(?!\\))//g;
    $string =~ s/(?:\\\\)/\\/g;

    return $string;
}

1;

__END__