Help for this page

Select Code to Download


  1. or download this
    ...
my @stack = $self->{stack};
($self->{stacktraces}{join('->',@{$self->{stack}})} = \@stack )
&& ...
  2. or download this
    ...
my @stack = @{ $self->{stack} };
($self->{stacktraces}{ join('->', @{$self->{stack}}) } = \@stack)
&& ...
  3. or download this
    sub print {
    use Data::Dump;
    my $self = shift;
    dd $self;
}
  4. or download this
    ...
$CSA->TraceFile(\@tracecontent);
$CSA->print;
...