B-Tap

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    dynamic_config       => 0,

    configure_requires => {
        'Module::Build' => '0.4005',
    },

    requires => {
        'B' => '0',
        'B::Deparse' => '0',
        'B::Tools' => '0',
        'Try::Tiny' => '0',
        'parent' => '0',
        'perl' => '5.014000',
    },

    recommends => {
    },

    suggests => {
    },

META.json  view on Meta::CPAN

            "Test::PAUSE::Permissions" : "0.07",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "B" : "0",
            "B::Deparse" : "0",
            "B::Tools" : "0",
            "Try::Tiny" : "0",
            "parent" : "0",
            "perl" : "5.014000"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.98"
         }
      }
   },

META.yml  view on Meta::CPAN

    version: '0.16'
  Devel::CallTrace::Result:
    file: lib/Devel/CodeObserver.pm
  Devel::CodeObserver:
    file: lib/Devel/CodeObserver.pm
    version: '0.16'
requires:
  B: '0'
  B::Deparse: '0'
  B::Tools: '0'
  Try::Tiny: '0'
  parent: '0'
  perl: '5.014000'
resources:
  bugtracker: https://github.com/tokuhirom/B-Tap/issues
  homepage: https://github.com/tokuhirom/B-Tap
  repository: git://github.com/tokuhirom/B-Tap.git
version: '0.16'
x_authority: cpan:TOKUHIROM
x_contributors:
  - 'Brian Fraser <fraserbn@gmail.com>'

cpanfile  view on Meta::CPAN

requires 'perl', '5.014000';
requires 'parent';
requires 'B::Tools';
requires 'Try::Tiny';
requires 'B::Deparse';
requires 'B';

on 'test' => sub {
    requires 'Test::More', '0.98';
};

lib/Devel/CodeObserver.pm  view on Meta::CPAN

    return 1 if $op->name eq 'entersub';
    return 1 if $op->name eq 'padsv';
    return 1 if $op->name eq 'aelem';
    return 1 if $op->name eq 'helem';
    return 1 if $op->name eq 'null' && ppname($op->targ) eq 'pp_rv2sv';
    return 0;
}

package Devel::CallTrace::Result;

use Try::Tiny;
use constant { DEBUG => 0 };

sub new {
    my $class = shift;
    my %args = @_==1 ? %{$_[0]} : @_;
    bless {%args}, $class;
}

sub dump_pairs {
    my ($self) = @_;