Util-EvalSnippet

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "File::Slurp" : "0",
            "PadWalker" : "0",
            "perl" : "5.012"
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.02",
   "x_serialization_backend" : "JSON::PP version 2.27300"
}

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Util-EvalSnippet
no_index:
  directory:
    - t
    - inc
requires:
  File::Slurp: '0'
  PadWalker: '0'
  perl: '5.012'
version: '0.02'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

  PL_FILES         => {},
  EXE_FILES        => ['script/perl-eval-snippet'],
  MIN_PERL_VERSION => 5.012,
  CONFIGURE_REQUIRES => {
    'ExtUtils::MakeMaker' => 0,
  },
  BUILD_REQUIRES   => {
    'Test::More'   => 0,
  },
  PREREQ_PM => {
    'PadWalker'    => 0,
    'File::Slurp'  => 0,
  },
  dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
  clean => { FILES => 'Util-EvalSnippet-*' },
  test => {
    TESTS => 't/tests/*/*/*.t',
  }
);

lib/Util/EvalSnippet.pm  view on Meta::CPAN

package Util::EvalSnippet;
use 5.020;
use strict;
use warnings;
use PadWalker qw(peek_my peek_our);
use File::Slurp qw(read_file);
use Cwd 'abs_path';

our $VERSION = '0.02';

sub import {
  my ($package, $msg) = @_;
  if ($msg and $msg eq 'safe' and !$ENV{ALLOW_SNIPPETS}) {
    die "\n\nCan't use Util::EvalSnippet in 'safe' mode if ALLOW_SNIPPETS env var is not set";
  }