X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalystX%2FHelpText%2FScript%2FSearchUndocumentedHelpText.pm;h=c07d7ab0fd17c7b71ff877cf511363aa0d575cc9;hb=e5459d7645c631ad2376cb287f6f8c63ffd53b62;hp=01ba939b05620f12779d4f819e4fd7c333ae66a3;hpb=61f2af091cd04f85e832dfa3cce47810e2f25c5d;p=catagits%2FCatalystX-HelpText.git

diff --git a/lib/CatalystX/HelpText/Script/SearchUndocumentedHelpText.pm b/lib/CatalystX/HelpText/Script/SearchUndocumentedHelpText.pm
index 01ba939..c07d7ab 100644
--- 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,