display trees of reverse deps

lib/CPANdeps.pm

@@ -44,6 +44,7 @@ my $tt2 = Template->new(
     INCLUDE_PATH => "$home/templates",
     PRE_CHOMP    => 1,
     POST_CHOMP   => 1,
+    RECURSION    => 1,
 );
 
 sub concurrency_limit {

templates/depended-on-by-xml.tt2

@@ -7,7 +7,7 @@
       <depended_on_by count="[% depended_on_by.size %]">
       [% IF depended_on_by.size %]
         [% FOR dep = depended_on_by %]
-          <dist><name>[% dep.dist %]</name></dist>
+          [% INCLUDE 'reverseresult-xml.tt2' dep = dep %]
         [% END %]
       [% ELSE %]
         <warning>None found (or maybe it's just not been calculated yet)</warning>

templates/depended-on-by.tt2

@@ -25,8 +25,8 @@
     [% IF depended_on_by.size %]
       <ul class="depended_on">
         [% FOR dep = depended_on_by %]
-	  <li><a href="http://search.cpan.org/search?query=[% dep.dist %]">[% dep.dist %]</a></li>
-	[% END %]
+          [% INCLUDE 'reverseresult.tt2' dep = dep %]
+	    [% END %]
       </ul>
     [% ELSE %]
       <p>Nothing (or maybe it's just not been calculated yet)</p>

templates/reverseresult-xml.tt2

@@ -0,0 +1,13 @@
+[% dist = dep.dist %]
+[% depended_on_by = dep.depended_on_by %]
+
+<dist>
+  <name>[% dist %]</name>
+  [% IF depended_on_by.size %]
+    <depended_on_by count="[% depended_on_by.size %]">
+      [% FOR dep = depended_on_by %]
+        [% INCLUDE 'reverseresult-xml.tt2' dep = dep %]
+   [% END %]
+    </depended_on_by>
+  [% END %]
+</dist>

templates/reverseresult.tt2

@@ -0,0 +1,11 @@
+[% dist = dep.dist %]
+[% depended_on_by = dep.depended_on_by %]
+
+<li><a href="http://search.cpan.org/search?query=[% dist %]">[% dist %]</a></li>
+    [% IF depended_on_by.size %]
+      <ul class="depended_on">
+        [% FOR dep = depended_on_by %]
+          [% INCLUDE 'reverseresult.tt2' dep = dep %]
+	    [% END %]
+      </ul>
+    [% END %]