Test-Subroutines

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "ExtUtils::MakeMaker" : "6.30"
         }
      },
      "runtime" : {
         "requires" : {
            "Devel::LexAlias" : 0,
            "Devel::Symdump" : 0,
            "Exporter" : 0,
            "File::Slurp" : 0,
            "PadWalker" : 0,
            "Symbol" : 0,
            "strict" : 0,
            "warnings" : 0
         }
      },
      "test" : {
         "requires" : {
            "Getopt::Long" : 0,
            "Test::More" : 0
         }

META.yml  view on Meta::CPAN

license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Test-Subroutines
requires:
  Devel::LexAlias: 0
  Devel::Symdump: 0
  Exporter: 0
  File::Slurp: 0
  PadWalker: 0
  Symbol: 0
  strict: 0
  warnings: 0
resources:
  bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Test-Subroutines
  homepage: https://github.com/ollyg/Test-Subroutines/wiki
  repository: git://github.com/ollyg/Test-Subroutines.git
version: 1.113350

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "Test-Subroutines",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "Test::Subroutines",
  "PREREQ_PM" => {
    "Devel::LexAlias" => 0,
    "Devel::Symdump" => 0,
    "Exporter" => 0,
    "File::Slurp" => 0,
    "PadWalker" => 0,
    "Symbol" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "VERSION" => "1.113350",
  "test" => {
    "TESTS" => "t/*.t"
  }
);

lib/Test/Subroutines.pm  view on Meta::CPAN

require Exporter;
@ISA       = qw(Exporter);
@EXPORT    = qw(load_subs);
@EXPORT_OK = qw(get_subref);

use strict;
use warnings FATAL => 'all';

use Devel::LexAlias qw(lexalias);
use PadWalker qw(closed_over peek_my);
use Symbol qw(qualify_to_ref);
use Devel::Symdump;
use File::Slurp;

our @used_modules;
BEGIN {
    unshift @INC, \&trace_use
        unless grep { "$_" eq \&trace_use . '' } @INC;
}