added tests for scripts

[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 01ba939..c07d7ab 100644 (file)
--- a/lib/CatalystX/HelpText/Script/SearchUndocumentedHelpText.pm
+++ b/lib/CatalystX/HelpText/Script/SearchUndocumentedHelpText.pm
@@ -7,6 +7,7 @@ use File::Find;
 use Data::Dumper;
 use Getopt::Long::Descriptive; # Force GLD as we override bits..
 use MooseX::Types::LoadableClass qw/ LoadableClass /;
+use Moose::Util::TypeConstraints qw/ duck_type /;
 use Template;
 use List::MoreUtils qw/ uniq /;
 use namespace::autoclean;
@@ -15,14 +16,22 @@ has finder_class => (
     isa => LoadableClass,
     coerce => 1,
     default => 'CatalystX::HelpText::Finder::TemplateToolkit',
-    handles => "_construct_finder",
+    handles => {
+        new_finder => 'new',
+    }
 );
 
+sub _construct_finder {
+    my $self = shift;
+    return $self->new_finder(@_);
+}
+
 has finder => (
     isa => duck_type([qw/ find_helptext_keys_in_fn /]),
     default => sub {
         my $self = shift;
-        $self->_construct_finder( # Args here
+        $self->_construct_finder(
+            template_search_dir => $self->template_search_dir
         );
     },
     lazy => 1,