view release on metacpan or  search on metacpan

EdTrace.pm  view on Meta::CPAN

use Data::Dumper;
use Data::DeepCopy;
use Config;

use vars qw($_brackets $_simple_parens);

my $_quotables = [ '@', '#', '%', '^', '&', '*', ':', '"', "'", '', '', '' ];

BEGIN 
{ 
	eval "use PadWalker qw(peek_my peek_our);\n";
	eval "use Devel::LexAlias qw(lexalias);\n";
	($_brackets , $_simple_parens) = ___brackets_parens();
#	eval "use Regex::Token qw(\$_brackets \$_simple_parens);\n";

#	if ($@) { print STDERR "HERE :$@:\n"; }
#
#	print STDERR "HERE: $_brackets\n";
#	die;
	if (!defined(&peek_my)) { print STDERR "SYSTEM WARNING: PadWalker not found!\n"; }
	if (!defined(&lexalias)) { print STDERR "SYSTEM WARNING: Devel::LexAlias not found!\n"; }

#	print STDERR ":$_simple_parens:\n";
	*lexalias = sub { {} } if (!defined(&lexalias));
	*peek_my = sub { {} } if (!defined(&peek_my));
	*peek_our = sub { {} } if (!defined(&peek_our));

    sub ___brackets_parens
    {
		my $_cpp_comment  = q$(?<![A-Za-z:])//[^\n]*(?=\n|\Z)$;

META.yml  view on Meta::CPAN

abstract                : verbose tracer of perl code
author:              
  - Ed Peschko <horos11@gmail.com>

license                 : perl
distribution_type       : module
dynamic_config          : 1

recommends:

  PadWalker             : 1
  Devel::LexAlias       : 1

resources:
  homepage              : http://search.cpan.org/dist/Devel-EdTrace/
  license               : http://dev.perl.org/licenses/
  bugtracker            : http://rt.cpan.org/Public/Dist/Display.html?Name=Devel-EdTrace

meta-spec:
  version               : .95