Devel-Trepan

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    requires => {
        'perl'                              => '5.008008',
        'Array::Columnize'                  => '1.04',
        # 'Capture::Tiny'                     => 0,
        'Data::Dumper'                      => 0,
        'Devel::Callsite'                   => 0.08,
	'File::HomeDir'                     => 0.54,
        'Getopt::Long'                      => '2.36',
        'Digest::SHA'                       => 0,
        'Marpa::R2'                         => 4.000,
        'PadWalker'                         => 0,
        'Pod::Find'                         => 1.63,
        'Pod::Text'                         => 3.13,
        'Scalar::Util'                      => 0,
        'Syntax::Highlight::Perl::Improved' => 1.01,
        'rlib'                              => '0.02',
        'version'                           => 0,
    },

    sign                => ($ENV{PERL_MB_NOSIGN} ? 0 : 1),

META.json  view on Meta::CPAN

            "Term::ReadLine::Perl5" : "1.33"
         },
         "requires" : {
            "Array::Columnize" : "1.04",
            "Data::Dumper" : "0",
            "Devel::Callsite" : "0.08",
            "Digest::SHA" : "0",
            "File::HomeDir" : "0.54",
            "Getopt::Long" : "2.36",
            "Marpa::R2" : "4",
            "PadWalker" : "0",
            "Pod::Find" : "1.63",
            "Pod::Text" : "3.13",
            "Scalar::Util" : "0",
            "Syntax::Highlight::Perl::Improved" : "1.01",
            "perl" : "5.008008",
            "rlib" : "0.02",
            "version" : "0"
         }
      },
      "test" : {

META.yml  view on Meta::CPAN

  Pod::Text::Color: '2.06'
  Term::ReadLine::Perl5: '1.33'
requires:
  Array::Columnize: '1.04'
  Data::Dumper: '0'
  Devel::Callsite: '0.08'
  Digest::SHA: '0'
  File::HomeDir: '0.54'
  Getopt::Long: '2.36'
  Marpa::R2: '4'
  PadWalker: '0'
  Pod::Find: '1.63'
  Pod::Text: '3.13'
  Scalar::Util: '0'
  Syntax::Highlight::Perl::Improved: '1.01'
  perl: '5.008008'
  rlib: '0.02'
  version: '0'
resources:
  bugtracker: https://github.com/rocky/Perl-Devel-Trepan/issues
  license: http://opensource.org/licenses/gpl-license.php

lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Variables_Subcmd/Lexicals.pm  view on Meta::CPAN

# -*- coding: utf-8 -*-
# Copyright (C) 2011-2012, 2014 Rocky Bernstein <rocky@cpan.org>
use warnings; no warnings 'redefine'; no warnings 'once';
use rlib '../../../../../..';

package Devel::Trepan::CmdProcessor::Command::Info::Variables::Lexicals;
our (@ISA, @SUBCMD_VARS);

use Devel::Trepan::CmdProcessor::Command::Subcmd::Subsubcmd;
use PadWalker qw(peek_my peek_our);
use Devel::Trepan::CmdProcessor::Command::Info_Subcmd::Variables_Subcmd::My;

our $CMD = "info variables lexicals";
my  @CMD = split(/ /, $CMD);
use constant MAX_ARGS => undef;
use constant NEED_STACK => 1;

our $MIN_ABBREV = length('l');
=pod

lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Variables_Subcmd/My.pm  view on Meta::CPAN

use vars qw(@ISA @SUBCMD_VARS);
unless (@ISA) {
    eval <<'EOE';
    use constant MAX_ARGS => undef;
    use constant NEED_STACK => 1;
EOE
}
use strict;

use Devel::Trepan::CmdProcessor::Command::Subcmd::Subsubcmd;
use PadWalker qw(peek_my);
use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;

our $CMD = "info variables my";
my  @CMD = split(/ /, $CMD);
=pod

=head2 Synopsis:

=cut
our $MIN_ABBREV = length('m');

lib/Devel/Trepan/CmdProcessor/Command/Info_Subcmd/Variables_Subcmd/Our.pm  view on Meta::CPAN

# -*- coding: utf-8 -*-
# Copyright (C) 2011-2012, 2014 Rocky Bernstein <rocky@cpan.org>
use warnings; no warnings 'redefine'; no warnings 'once';
use rlib '../../../../../..';
package Devel::Trepan::CmdProcessor::Command::Info::Variables::Our;

use vars qw(@ISA @SUBCMD_VARS);
use strict;
use Devel::Trepan::CmdProcessor::Command::Info_Subcmd::Variables_Subcmd::My;
use PadWalker qw(peek_our);

our $CMD = "info variables our";
our  @CMD = split(/ /, $CMD);
use constant MAX_ARGS => undef;
use constant NEED_STACK => 1;
=pod

=head2 Synopsis:

=cut

lib/Devel/Trepan/CmdProcessor/Command/Set_Subcmd/Variable.pm  view on Meta::CPAN

# -*- coding: utf-8 -*-
# Copyright (C) 2011-2012, 2014-215 Rocky Bernstein <rocky@cpan.org>
use warnings; no warnings 'redefine';
use rlib '../../../../..';

package Devel::Trepan::CmdProcessor::Command::Set::Variable;

use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
use PadWalker qw(peek_our peek_my);

use strict;
use vars qw(@ISA @SUBCMD_VARS);
@ISA = qw(Devel::Trepan::CmdProcessor::Command::Subcmd);
# Values inherited from parent
use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;

## FIXME: do automatically.
our $CMD = "set variable";

lib/Devel/Trepan/CmdProcessor/Eval.pm  view on Meta::CPAN

# -*- coding: utf-8 -*-
# Copyright (C) 2012-2014 Rocky Bernstein <rocky@cpan.org>
use warnings; use utf8;
use rlib '../../..';

package Devel::Trepan::CmdProcessor;
use Devel::Trepan::Util qw(hash_merge uniq_abbrev);
use PadWalker qw(peek_my peek_our);
use strict;

# Note DB::Eval uses and sets its own variables.

use constant HAVE_EVAL_WITH_LEXICALS => eval("use Eval::WithLexicals; 1") ? 1 : 0;

my $given_eval_warning = 0;

sub eval($$$$) {
    my ($self, $code_to_eval, $opts) = @_;