File Coverage

blib/lib/Devel/Monitor/Trace.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	5	6	83.3
condition			n/a
subroutine	9	9	100.0
pod	0	6	0.0
total	56	63	88.8

package Devel::Monitor::Trace;
use strict;
use warnings;

use Devel::Monitor::Common qw(:all);

sub new {
    my ($class) = @_;
    my $self = {};
    bless($self => $class);
    $self->{_traceItems} = [];
    return $self;
}

sub push {
    my $self = shift;
    my $varRef = shift;
    my $source = shift;
    my $trace = Devel::Monitor::TraceItem->new($varRef,$source);
    push(@{$self->{_traceItems}},$trace);
}

sub pop {
    my $self = shift;
    pop @{$self->{_traceItems}};
}

sub getTraceItems {
    return shift->{_traceItems};
}

sub getCircularPath {
    my $self = shift;
    my $tmp = '';
    my $isFirst = 1;
    foreach my $trace (@{$self->{_traceItems}}) {
        if ($isFirst) {
            $tmp .= $trace->getVarRef();
            $isFirst = 0;
        } else {
            $tmp .= $trace->getSource() if $trace->getSource();
        }
    }
    return $tmp;
}

sub dump {
    my $self = shift;
    my $i = 1;
    foreach my $trace (@{$self->{_traceItems}}) {
        if ($trace->getSource()) {
            Devel::Monitor::Common::printMsg($i.' - Source   : '.$trace->getSource()."\n".
                                               '    Item     : '.$trace->getVarRef()."\n");
        } else {
            Devel::Monitor::Common::printMsg($i.' - Item     : '.$trace->getVarRef()."\n");
        }
        $i++;
    }
}

1;