X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Antlers.git;a=blobdiff_plain;f=lib%2FMooseX%2FAntlers%2FRefTracker.pm;fp=lib%2FMooseX%2FAntlers%2FRefTracker.pm;h=d53fe66599a8f9ea9207039468bf092c704c534d;hp=26473c1c43a29a5f0abe39d5fc61087a8a703077;hb=5ed50637a6a3590982b86580bef646f2d8b44b13;hpb=a39b801f07ae3f019341068c428f1360efeb9886

diff --git a/lib/MooseX/Antlers/RefTracker.pm b/lib/MooseX/Antlers/RefTracker.pm
index 26473c1..d53fe66 100644
--- 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) = @_;