Devel-ebug

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::Spelling" : "0",
            "Test::Strict" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Class::Accessor::Chained" : "0",
            "Devel::StackTrace" : "2.00",
            "IO::Socket::INET" : "0",
            "Module::Pluggable" : "0",
            "PadWalker" : "0",
            "Proc::Background" : "0",
            "String::Koremutake" : "0",
            "Term::ReadLine" : "0",
            "YAML" : "0",
            "base" : "0",
            "perl" : "5.008",
            "strict" : "0",
            "warnings" : "0"
         }
      },

META.yml  view on Meta::CPAN

  version: '1.4'
name: Devel-ebug
no_index:
  directory:
    - corpus
requires:
  Class::Accessor::Chained: '0'
  Devel::StackTrace: '2.00'
  IO::Socket::INET: '0'
  Module::Pluggable: '0'
  PadWalker: '0'
  Proc::Background: '0'
  String::Koremutake: '0'
  Term::ReadLine: '0'
  YAML: '0'
  base: '0'
  perl: '5.008'
  strict: '0'
  warnings: '0'
resources:
  bugtracker: https://github.com/uperl/Devel-ebug/issues

Makefile.PL  view on Meta::CPAN

    "lib/Devel/ebug/Plugin/Output.pm"               => "\$(INST_LIB)/Devel/ebug/Plugin/Output.pm",
    "lib/Devel/ebug/Plugin/Pad.pm"                  => "\$(INST_LIB)/Devel/ebug/Plugin/Pad.pm",
    "lib/Devel/ebug/Plugin/Run.pm"                  => "\$(INST_LIB)/Devel/ebug/Plugin/Run.pm",
    "lib/Devel/ebug/Plugin/StackTrace.pm"           => "\$(INST_LIB)/Devel/ebug/Plugin/StackTrace.pm"
  },
  "PREREQ_PM" => {
    "Class::Accessor::Chained" => 0,
    "Devel::StackTrace"        => "2.00",
    "IO::Socket::INET"         => 0,
    "Module::Pluggable"        => 0,
    "PadWalker"                => 0,
    "Proc::Background"         => 0,
    "String::Koremutake"       => 0,
    "Term::ReadLine"           => 0,
    "YAML"                     => 0,
    "base"                     => 0,
    "strict"                   => 0,
    "warnings"                 => 0
  },
  "TEST_REQUIRES" => {
    "Test::More" => "0.94"

Makefile.PL  view on Meta::CPAN

  "test"    => {
    "TESTS" => "t/*.t"
  }
);

my %FallbackPrereqs = (
  "Class::Accessor::Chained" => 0,
  "Devel::StackTrace"        => "2.00",
  "IO::Socket::INET"         => 0,
  "Module::Pluggable"        => 0,
  "PadWalker"                => 0,
  "Proc::Background"         => 0,
  "String::Koremutake"       => 0,
  "Term::ReadLine"           => 0,
  "Test::More"               => "0.94",
  "YAML"                     => 0,
  "base"                     => 0,
  "strict"                   => 0,
  "warnings"                 => 0
);

lib/Devel/ebug/Backend/Plugin/Pad.pm  view on Meta::CPAN

package Devel::ebug::Backend::Plugin::Pad;

use strict;
use warnings;
use PadWalker;

our $VERSION = '0.64'; # VERSION

sub register_commands {
  return ( pad => { sub => \&DB::pad } )
}

package DB;


use Scalar::Util qw(blessed reftype);
sub pad {
  my($req, $context) = @_;
  my $pad;
  my $h = eval { PadWalker::peek_my(2) };
  foreach my $k (sort keys %$h) {
    if ($k =~ /^@/) {
      my @v = eval "package $context->{package}; ($k)";  ## no critic (BuiltinFunctions::ProhibitStringyEval)
      $pad->{$k} = \@v;
    } else {
      my $v = eval "package $context->{package}; $k";    ## no critic (BuiltinFunctions::ProhibitStringyEval)
      $pad->{$k} = $v;

      # workaround for blessed globs
      $pad->{$k} = "".$v if blessed $v and reftype $v eq "GLOB";

t/00_diag.t  view on Meta::CPAN

my $post_diag;

$modules{$_} = $_ for qw(
  Class::Accessor::Chained
  Devel::StackTrace
  Expect
  Expect::Simple
  ExtUtils::MakeMaker
  IO::Socket::INET
  Module::Pluggable
  PadWalker
  Proc::Background
  String::Koremutake
  Term::ReadLine
  Test::Expect
  Test::More
  YAML
);