X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FMojoFacets%2FCode.pm;h=29b4a76a27e212034343ad0f961febb9690e8582;hb=3f3daca0cd5b9caf19daf34acc529922110d2db0;hp=352fb97f863e740236a5e529fc1a42fca1224940;hpb=79c4be4f46a9c1c830a4b098ef1e0fdce4bb457b;p=MojoFacets.git

diff --git a/lib/MojoFacets/Code.pm b/lib/MojoFacets/Code.pm
index 352fb97..29b4a76 100644
--- a/lib/MojoFacets/Code.pm
+++ b/lib/MojoFacets/Code.pm
@@ -23,6 +23,7 @@ sub index {
 	my $dir = $self->_code_dir;
 
 	my $snippets;
+	my $no_deps;
 
 	foreach my $full_path ( glob("$dir/*.pl") ) {
 		my $path = $full_path;
@@ -34,13 +35,19 @@ sub index {
 		my $found = -1;
 		$found += $columns->{$_} foreach @deps;
 warn "# depends $depends $found $#deps\n";
-		next unless $found == $#deps || $self->param('all_code');
+
+		if ( $found != $#deps ) {
+			$self->param('all_code') ? $no_deps->{$depends}->{$description}++ : next;
+		}
 
 		$snippets->{$depends}->{$description} = read_file $full_path, binmode => ':utf8';
 	}
 
+warn "# no_deps ",dump($no_deps);
+
 	$self->render(
 		snippets => $snippets,
+		no_deps => $no_deps,
 	);
 }