lib/Frey/Backtrace.pm

package Frey::Backtrace;
use Moose::Role;

use Data::Dump qw/dump/;

=head1 DESCRIPTION

Show backtrace with links to editor

=cut

has 'caller_fields' => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        required => 1,
        default => sub { [ qw/
                        package filename line
                        subroutine hasargs
                        wantarray evaltext is_require
                        hints bitmask hinthash
        / ] },
);

=head2 backtrace

  my @backtrace = $self->backtrace;

=cut

sub backtrace {
        my ($self) = @_;

        my @backtrace;
        foreach ( 0 .. 5 ) {
                my @caller = caller($_) or last;
                push @backtrace, join(' ',
                        map {
                                my $name = $self->caller_fields->[$_];
                                my $val  = $caller[$_];
                                if ( $name eq 'filename' ) {
                                        my $line = $caller[ $_ + 1 ];
                                        qq|$name <a target="editor" href="/editor+$val+$line">$val</a>|;
                                } else {
                                        $name . ': ' . dump $val
                                }
                        } ( 0 .. $#{ $self->caller_fields } )
                );
        }
        warn "# backtrace: ", dump( @backtrace ) if @backtrace;
        return @backtrace;
}

1;
1	package Frey::Backtrace;
2	use Moose::Role;
3
4	use Data::Dump qw/dump/;
5
6	=head1 DESCRIPTION
7
8	Show backtrace with links to editor
9
10	=cut
11
12	has 'caller_fields' => (
13	is => 'rw',
14	isa => 'ArrayRef[Str]',
15	required => 1,
16	default => sub { [ qw/
17	package filename line
18	subroutine hasargs
19	wantarray evaltext is_require
20	hints bitmask hinthash
21	/ ] },
22	);
23
24	=head2 backtrace
25
26	my @backtrace = $self->backtrace;
27
28	=cut
29
30	sub backtrace {
31	my ($self) = @_;
32
33	my @backtrace;
34	foreach ( 0 .. 5 ) {
35	my @caller = caller($_) or last;
36	push @backtrace, join(' ',
37	map {
38	my $name = $self->caller_fields->[$_];
39	my $val = $caller[$_];
40	if ( $name eq 'filename' ) {
41	my $line = $caller[ $_ + 1 ];
42	qq\|$name <a target="editor" href="/editor+$val+$line">$val</a>\|;
43	} else {
44	$name . ': ' . dump $val
45	}
46	} ( 0 .. $#{ $self->caller_fields } )
47	);
48	}
49	warn "# backtrace: ", dump( @backtrace ) if @backtrace;
50	return @backtrace;
51	}
52
53	1;