slightly more convenience

diff --git a/lib/MooseX/Antlers/EvalTracker.pm b/lib/MooseX/Antlers/EvalTracker.pm
index 1f5daf4..8466698 100644 (file)
--- a/lib/MooseX/Antlers/EvalTracker.pm
+++ b/lib/MooseX/Antlers/EvalTracker.pm
@@ -41,7 +41,7 @@ sub enable {
   return if $self->is_enabled;
   $self->_install('our');
   $self->is_enabled(1);
-  return;
+  return $self;
 }
 
 sub disable {
@@ -49,7 +49,7 @@ sub disable {
   return unless $self->is_enabled;
   $self->_install('original');
   $self->is_enabled(0);
-  return;
+  return $self;
 }
 
 sub _install {

diff --git a/lib/MooseX/Antlers/RefTracker.pm b/lib/MooseX/Antlers/RefTracker.pm
index 26473c1..d53fe66 100644 (file)
--- a/lib/MooseX/Antlers/RefTracker.pm
+++ b/lib/MooseX/Antlers/RefTracker.pm
@@ -13,6 +13,13 @@ with 'MooseX::Antlers::Visitor::NameTracking';
 has '_traced_refs' => (is => 'ro', lazy => 1, default => sub { {} });
 has '_traced_names' => (is => 'ro', lazy => 1, default => sub { {} });
 
+sub trace_refs {
+  my ($class, $name, $refs) = @_;
+  my $self = $class->new({ root_name => $name });
+  $self->visit($refs);
+  return $self->traced_ref_map;
+}
+
 before visit_ref => sub {
   my ($self, $data) = @_;