File Coverage

blib/lib/Log/Log4perl/Layout/PatternLayout/Stacktrace.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	4	75.0
condition	4	5	80.0
subroutine	12	12	100.0
pod	2	4	50.0
total	53	57	92.9

package Log::Log4perl::Layout::PatternLayout::Stacktrace;

use parent 'Stacktrace::Configurable';

use strict;
use 5.01;
our $VERSION = '0.05';
use warnings;
use Log::Log4perl ();
use Log::Log4perl::Layout::PatternLayout ();

sub cspec {
    our $recursion;
    return '(recursion detected)' if $recursion;
    local $recursion=1;
    __PACKAGE__->new(format=>$_[0]->{curlies})->get_trace->as_string;
}

sub register_cspec {
    my $char = $_[0];
    Log::Log4perl::Layout::PatternLayout::add_global_cspec($char, \&cspec);
}

sub import {
    my ($module, %o) = @_;
    no warnings 'uninitialized';
    my $char = $o{-char} // $o{char} // 'S';
    register_cspec $char if length $char == 1;
}

sub skip_package_re{qr/^Log::Log4perl/}

sub default_format {
    ('env=L4P_STACKTRACE,'.
     '%[nr=1,n]b%[nr=1,s=    ==== START STACK TRACE ===]b%[nr=1,n]b'.
     '%4b[%*n] at %f line %l%[n]b'.
     '%12b%[skip_package]s %[env=L4P_STACKTRACE_A]a'.
     '%[nr!L4P_STACKTRACE_MAX,c=%n    ... %C frames cut off]b'.
     '%[nr=$,n]b%[nr=$,s=    === END STACK TRACE ===]b');
}

1;
__END__