show dependent or all code snippets button

diff --git a/lib/MojoFacets/Code.pm b/lib/MojoFacets/Code.pm
index 8f52d69..0a523ef 100644 (file)
--- a/lib/MojoFacets/Code.pm
+++ b/lib/MojoFacets/Code.pm
@@ -28,7 +28,7 @@ sub index {
                my $found = -1;
                $found += $columns->{$_} foreach @deps;
 warn "# depends $depends $found $#deps\n";
-               next unless $found == $#deps;
+               next unless $found == $#deps || $self->param('all_code');
 
                $snippets->{$depends}->{$description} = read_file $full_path, binmode => ':utf8';
        }

diff --git a/templates/code/index.html.ep b/templates/code/index.html.ep
index d1a408e..31b0d2a 100644 (file)
--- a/templates/code/index.html.ep
+++ b/templates/code/index.html.ep
@@ -24,4 +24,13 @@
 </ul>
 % }
 
+<form>
+% if ( param('all_code') ) {
+<input type=hidden name=all_code value=0>
+<input type=submit value="Show just dependent code snippets">
+% } else {
+<input type=submit name=all_code value="Show all code snippets">
+% }
+</form>
+
 <tt class=debug><%= dumper stash('snippets') %></tt>