Aion-Carp

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

    die(...) called at t/aion/carp.t line 15
    main::A() called at t/aion/carp.t line 16
    main::B() called at t/aion/carp.t line 17
    eval {...} called at t/aion/carp.t line 17
    main::C() called at t/aion/carp.t line 18
    main::D() called at t/aion/carp.t line 20
    eval {...} called at t/aion/carp.t line 20
";
$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 15
    main::A() called at t/aion/carp.t line 16
    main::B() called at t/aion/carp.t line 17
    eval {...} called at t/aion/carp.t line 17
    main::C() called at t/aion/carp.t line 18
    main::D() called at t/aion/carp.t line 20
    eval {...} called at t/aion/carp.t line 20
";
$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 15
	    main::A() called at t/aion/carp.t line 16
	    main::B() called at t/aion/carp.t line 17
	    eval {...} called at t/aion/carp.t line 17
	    main::C() called at t/aion/carp.t line 18
	    main::D() called at t/aion/carp.t line 20
	    eval {...} called at t/aion/carp.t line 20
	";
	$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 Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# # NAME
# 
# Aion::Carp - добавляет трассировку стека в исключения
# 
# # VERSION
# 
# 1.5
# 
# # SYNOPSIS
# 

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

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

local ($::_g0 = do {substr($@, 0, length $expected)}, $::_e0 = "$expected"); ::ok $::_g0 eq $::_e0, 'substr($@, 0, length $expected) # => $expected' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;


my $exception = {message => "hi!"};
eval { die $exception };
local ($::_g0 = do {$@}, $::_e0 = do {$exception}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '$@  # -> $exception' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
local ($::_g0 = do {$@->{message}}, $::_e0 = "hi!"); ::ok $::_g0 eq $::_e0, '$@->{message}  # => hi!' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
::like scalar do {$@->{STACKTRACE}}, qr{^die\(\.\.\.\) called at}, '$@->{STACKTRACE}  # ~> ^die\(\.\.\.\) called at'; undef $::_g0; undef $::_e0;

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