Devel-Monitor
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Devel/Monitor/TraceItem.pm view on Meta::CPAN
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;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.104 second using v1.00-cache-2.02-grep-82fe00e-cpan-48ebf85a1963 )