Aion-Carp

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

```perl
eval { Aion::Carp::handler("hi!") }; $@  # ~> ^hi!\n\tdie
```

## import

Заменяет `$SIG{__DIE__}` на `handler`.

```perl
$SIG{__DIE__} = undef;
$SIG{__DIE__} # --> undef

Aion::Carp->import;

$SIG{__DIE__} # -> \&Aion::Carp::handler
```

# SEE ALSO

* `Carp::Always`

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

```perl
eval { Aion::Carp::handler("hi!") }; $@  # ~> ^hi!\n\tdie
```

## import

Заменяет `$SIG{__DIE__}` на `handler`.

```perl
$SIG{__DIE__} = undef;
$SIG{__DIE__} # --> undef

Aion::Carp->import;

$SIG{__DIE__} # -> \&Aion::Carp::handler
```

# SEE ALSO

* `Carp::Always`

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

=head2 handler ($message)

Adds a stack trace to C<$message>.

	eval { Aion::Carp::handler("hi!") }; $@  # ~> ^hi!\n\tdie

=head2 import

Replaces C<$SIG{__DIE__}> with C<handler>.

	$SIG{__DIE__} = undef;
	$SIG{__DIE__} # --> undef
	
	Aion::Carp->import;
	
	$SIG{__DIE__} # -> \&Aion::Carp::handler

=head1 SEE ALSO

=over

=item * C<Carp::Always>

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 };
local ($::_g0 = do {$exception->{STACKTRACE}}, $::_e0 = do {123}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '$exception->{STACKTRACE} # -> 123' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

$exception = [];
eval { die $exception };
local ($::_g0 = do {$@}, $::_e0 = do {[]}); ::is_deeply $::_g0, $::_e0, '$@ # --> []' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# # DESCRIPTION
# 
# Этот модуль заменяет `$SIG{__DIE__}` на функцию, добавляющую в исключения трассировку стека.
# 
# Если исключением является строка, к сообщению добавляется трассировка стека. А если исключением является хэш (`{}`) или объект на базе хеÑ...
# 
# При повторном выбрасывании исключения трассировка стека не добавляется, а остаётся прежней.
# 
# # SUBROUTINES
# 
# ## handler ($message)
# 
# Добавляет трассировку стека в `$message`.
# 
::done_testing; }; subtest 'handler ($message)' => sub { 
::like scalar do {eval { Aion::Carp::handler("hi!") }; $@}, qr{^hi\!\n\tdie}, 'eval { Aion::Carp::handler("hi!") }; $@  # ~> ^hi!\n\tdie'; undef $::_g0; undef $::_e0;

# 
# ## import
# 
# Заменяет `$SIG{__DIE__}` на `handler`.
# 
::done_testing; }; subtest 'import' => sub { 
$SIG{__DIE__} = undef;
local ($::_g0 = do {$SIG{__DIE__}}, $::_e0 = do {undef}); ::is_deeply $::_g0, $::_e0, '$SIG{__DIE__} # --> undef' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

Aion::Carp->import;

local ($::_g0 = do {$SIG{__DIE__}}, $::_e0 = do {\&Aion::Carp::handler}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '$SIG{__DIE__} # -> \&Aion::Carp::handler' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# # SEE ALSO
# 
# * `Carp::Always`
# 
# # AUTHOR
# 
# Yaroslav O. Kosmina <dart@cpan.org>
#