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	dpavlin	465	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;