Aion-Carp

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

            die(...) called at t/aion/carp.t line 14
            main::A() called at t/aion/carp.t line 15
            main::B() called at t/aion/carp.t line 16
            eval {...} called at t/aion/carp.t line 16
            main::C() called at t/aion/carp.t line 17
            main::D() called at t/aion/carp.t line 19
            eval {...} called at t/aion/carp.t line 19
        ";
        $expected =~ s/^ {4}/\t/gm;
        
        substr($@, 0, length $expected) # => $expected
        
        
        my $exception = {message => "hi!"};
        eval { die $exception };
        $@  # -> $exception
        $@->{message}  # => hi!
        $@->{STACKTRACE}  # ~> ^die\(\.\.\.\) called at
        
        $exception = {message => "hi!", STACKTRACE => 123};
        eval { die $exception };

lib/Aion/Carp.md  view on Meta::CPAN

    die(...) called at t/aion/carp.t line 14
    main::A() called at t/aion/carp.t line 15
    main::B() called at t/aion/carp.t line 16
    eval {...} called at t/aion/carp.t line 16
    main::C() called at t/aion/carp.t line 17
    main::D() called at t/aion/carp.t line 19
    eval {...} called at t/aion/carp.t line 19
";
$expected =~ s/^ {4}/\t/gm;

substr($@, 0, length $expected) # => $expected


my $exception = {message => "hi!"};
eval { die $exception };
$@  # -> $exception
$@->{message}  # => hi!
$@->{STACKTRACE}  # ~> ^die\(\.\.\.\) called at

$exception = {message => "hi!", STACKTRACE => 123};
eval { die $exception };

lib/Aion/Carp.pm  view on Meta::CPAN

	    die(...) called at t/aion/carp.t line 14
	    main::A() called at t/aion/carp.t line 15
	    main::B() called at t/aion/carp.t line 16
	    eval {...} called at t/aion/carp.t line 16
	    main::C() called at t/aion/carp.t line 17
	    main::D() called at t/aion/carp.t line 19
	    eval {...} called at t/aion/carp.t line 19
	";
	$expected =~ s/^ {4}/\t/gm;
	
	substr($@, 0, length $expected) # => $expected
	
	
	my $exception = {message => "hi!"};
	eval { die $exception };
	$@  # -> $exception
	$@->{message}  # => hi!
	$@->{STACKTRACE}  # ~> ^die\(\.\.\.\) called at
	
	$exception = {message => "hi!", STACKTRACE => 123};
	eval { die $exception };

t/aion/carp.t  view on Meta::CPAN

use common::sense; use open qw/:std :utf8/; use Test::More 0.98; use Carp::Always::Color; sub _mkpath_ { my ($p) = @_; length($`) && !-e $`? mkdir($`, 0755) || die "mkdir $`: $!": () while $p =~ m!/!g; $p } BEGIN { my $t = `pwd`; chop $t; $t .= '/' ....
# 
# Aion::Carp - added stacktrace to exceptions
# 
# # VERSION
# 
# 1.5
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 

t/aion/carp.t  view on Meta::CPAN

    die(...) called at t/aion/carp.t line 14
    main::A() called at t/aion/carp.t line 15
    main::B() called at t/aion/carp.t line 16
    eval {...} called at t/aion/carp.t line 16
    main::C() called at t/aion/carp.t line 17
    main::D() called at t/aion/carp.t line 19
    eval {...} called at t/aion/carp.t line 19
";
$expected =~ s/^ {4}/\t/gm;

::is scalar do {substr($@, 0, length $expected)}, "$expected", 'substr($@, 0, length $expected) # => $expected';


my $exception = {message => "hi!"};
eval { die $exception };
::is scalar do {$@}, scalar do{$exception}, '$@  # -> $exception';
::is scalar do {$@->{message}}, "hi!", '$@->{message}  # => hi!';
::like scalar do {$@->{STACKTRACE}}, qr!^die\(\.\.\.\) called at!, '$@->{STACKTRACE}  # ~> ^die\(\.\.\.\) called at';

$exception = {message => "hi!", STACKTRACE => 123};
eval { die $exception };