little display fixes

[catagits/CatalystX-HelpText.git] / lib / CatalystX / HelpText / Script / SearchUndocumentedHelpText.pm

diff --git a/lib/CatalystX/HelpText/Script/SearchUndocumentedHelpText.pm b/lib/CatalystX/HelpText/Script/SearchUndocumentedHelpText.pm
index 1341335..109c5cf 100644 (file)
--- a/lib/CatalystX/HelpText/Script/SearchUndocumentedHelpText.pm
+++ b/lib/CatalystX/HelpText/Script/SearchUndocumentedHelpText.pm
@@ -42,16 +42,16 @@ has help_files_ext => (
 sub run {
     my ($self) = @_;
     my $file_vs_keys = {};
-    my @undocumented_keys = ();
+    my $undocumented_keys = {};
     foreach my $fn ($self->find_files->flatten) {
         $file_vs_keys->{$fn} = $self->find_helptext_keys($fn);
         foreach my $key ($file_vs_keys->{$fn}->flatten) {
             unless ($self->is_there_helptext_file_for_key($key)) {
-                push @undocumented_keys, $key
+                $undocumented_keys->{$key} = 1;
             }
         }
     }
-    $self->print_result([ @undocumented_keys ], $file_vs_keys);
+    $self->print_result([ keys %$undocumented_keys ], $file_vs_keys);
 }
 
 sub find_files {
@@ -94,8 +94,10 @@ sub is_there_helptext_file_for_key {
 
 sub print_result {
     my ($self, $undocumented_keys, $file_vs_keys) = @_;
-    print "Undocumented help text keys: \n";
-    print " - $_" for ($undocumented_keys->flatten);
+    if (scalar @$undocumented_keys) {
+        print "Undocumented help text keys: \n";
+        print " - $_" for ($undocumented_keys->flatten);
+    }
 }
 
 with qw/