slightly more convenience

[gitmo/MooseX-Antlers.git] / lib / MooseX / Antlers / RefTracker.pm

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) = @_;