use warnings;
use Readonly;
+use Carp qw( confess );
+use English qw(-no_match_vars);
use File::Spec qw();
use Scalar::Util qw( blessed );
use B::Keywords qw();
sub interpolate {
my ( $literal ) = @_;
- return eval "\"$literal\""; ## no critic (StringyEval);
+ return eval "\"$literal\"" or confess $EVAL_ERROR; ## no critic (StringyEval);
}
#-----------------------------------------------------------------------------
=item C<$EMPTY>
+=item C<$EQUAL>
+
=item C<$SPACE>
=item C<$SLASH>
#-----------------------------------------------------------------------------
-eval 'use Test::Deep'; ## no critic (
+eval 'use Test::Deep'; ## no critic (StringyEval)
plan( skip_all => 'Test::Deep requried to test round-trip of default values')
if $EVAL_ERROR;