Acme-JavaTrace

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use Module::Build;

Module::Build->new(
    module_name         => 'Acme::JavaTrace', 
    license             => 'perl', 
    dist_author         => 'Sébastien Aperghis-Tramoni <sebastien@aperghis.net>', 
    dist_version_from   => 'lib/Acme/JavaTrace.pm', 
    requires => {
        'Data::Dumper'  => 0, 
    }, 
    build_requires => {
        'Test'          => 0,
        'Test::More'    => 0,
    },
    add_to_cleanup      => [ 'Acme-JavaTrace-*' ],
)->create_build_script;

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: Acme-JavaTrace
provides:
  Acme::JavaTrace:
    file: lib/Acme/JavaTrace.pm
    version: 0.08
requires:
  Data::Dumper: 0
resources:
  license: http://dev.perl.org/licenses/
version: 0.08

Makefile.PL  view on Meta::CPAN

eval 'use ExtUtils::MakeMaker::Coverage';

WriteMakefile (
    NAME                => 'Acme::JavaTrace', 
    LICENSE             => 'perl', 
    AUTHOR              => 'Sébastien Aperghis-Tramoni <sebastien@aperghis.net>',
    VERSION_FROM        => 'lib/Acme/JavaTrace.pm', 
    ABSTRACT_FROM       => 'lib/Acme/JavaTrace.pm', 
    PREREQ_PM           => {
        # prereqs
        'Data::Dumper'  => 0, 

        # build/test prereqs
        'Test'          => 0,
        'Test::More'    => 0,
    }, 
    PL_FILES            => {}, 
    dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean               => { FILES => 'Acme-JavaTrace-*' },
);

lib/Acme/JavaTrace.pm  view on Meta::CPAN

        exists $options{$opt} ? $options{$opt} = not $options{$opt}
                              : CORE::warn "warning: Unknown option: $opt\n"
    }
}


# 
# _use_data_dumper()
# ----------------
sub _use_data_dumper {
    require Data::Dumper;
    import Data::Dumper;
    $Data::Dumper::Indent = 1;      # no fancy indent
    $Data::Dumper::Terse  = 1;      # don't use $VAR unless needed
    $Data::Dumper::Sortkeys = 1;    # sort keys
    #$Data::Dumper::Deparse = 1;     # deparse code refs
    {
        local $^W = 0; 
        *Devel::SimpleTrace::_use_data_dumper = sub {};
    }
}


# 
# _do_warn()
# --------

t/03showrefs1.t  view on Meta::CPAN

use strict;
use Test::More tests => 1;
use Acme::JavaTrace 'showrefs';
use Data::Dumper;

my $text = "Advice from Klortho #11901: You cant just make shit up and expect the computer to know what you mean, Retardo!";

my @attrs = (
    $Data::Dumper::VERSION <= 2.121
        ? (text => $text)
        : (type => 'error', text => $text)
);

eval {
    die bless { @attrs }, 'Exception'
};

like( $@, 
      qq|/^Caught exception object: Exception=HASH\\(0x[0-9a-fA-F]+\\): bless\\( \\{\n|.
      qq|\\s+'text' => '\Q$text\E',?\n|.
      ($Data::Dumper::VERSION <= 2.121 ? '' : qq|\\s+'type' => 'error',?\n|) .
      qq|\\}, 'Exception' \\)/|, 
      "checking the trace"
);

 view all matches for this distribution
 view release on metacpan -  search on metacpan