File Coverage

blib/lib/Devel/Monitor/TraceItem.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	3	0.0
total	24	27	88.8

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

sub new {
    my ($class, $varRef, $source) = @_;
    my $self = {};
    bless($self => $class);
    $self->{_varRef} = $varRef;
    $self->{_source} = $source;
    return $self;
}

sub getVarRef { return shift->{_varRef}; }
sub getSource {
    my $self = shift;
    if ($self->{_source}) {
        return $self->{_source};
    } else {
        return '';
    }
}

1;