File Coverage

blib/lib/Devel/Trace/Subs/Text.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	15	20	75.0
condition	5	6	83.3
subroutine	8	8	100.0
pod	1	1	100.0
total	66	72	91.6

package Devel::Trace::Subs::Text;
use 5.008;
use strict;
use warnings;

use Data::Dumper;
use Exporter;
use Template;

our $VERSION = '0.23';
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(text);

my ($stack_tpl, $flow_tpl, $all_tpl);

sub text {

    my %p = @_;

    my $file = $p{file};
    my $want = $p{want};
    my $data = $p{data};

    if ($want && $want eq 'stack') {

        my $template = Template->new;

        if ($file) {

            $template->process(
                \$stack_tpl,
                {stack => $data},
                $file
            ) || die $template->error;
        }
        else {
            $template->process(
                \$stack_tpl,
                {stack => $data},
            ) || die $template->error;
        }
    }
    elsif ($want && $want eq 'flow') {

        my $template = Template->new;

        if ($file) {

            $template->process(
                \$flow_tpl,
                {flow => $data},
                $file
            ) || die $template->error;
        }
        else {
            $template->process(
                \$flow_tpl,
                {flow => $data}
            ) || die $template->error;
        }
    }
    else {
        my $template = Template->new;

         if ($file) {

            $template->process(
                \$all_tpl,
                $data,
                $file,
            ) || die $template->error;
        }
        else {
            $template->process(\$all_tpl, {
                flow => $data->{flow},
                stack => $data->{stack},
            });
        }
    }
}

BEGIN {

$flow_tpl = <

Code flow:

[% FOREACH entry IN flow -%]
    [% entry.name %]: [% entry.value %]
[% END %]
EOF

$stack_tpl = <

Stack trace:

[%- FOREACH entry IN stack %]
    in:      [% entry.in %]
    sub:     [% entry.sub %]
    file:    [% entry.filename %]
    line:    [% entry.line %]
    package: [% entry.package %]
[% END %]
EOF

$all_tpl = <

Code flow:

[% FOREACH entry IN flow -%]
    [% entry.name %]: [% entry.value %]
[% END %]
Stack trace:

[%- FOREACH entry IN stack %]
    in:      [% entry.in %]
    sub:     [% entry.sub %]
    file:    [% entry.filename %]
    line:    [% entry.line %]
    package: [% entry.package %]
[% END %]
EOF
}
__END__