lib/CatalystX/HelpText/Finder/TemplateToolkit.pm

   1 package CatalystX::HelpText::Finder::TemplateToolkit;
   2 use Moose;
   3 use Moose::Autobox;
   4 use List::MoreUtils qw/ uniq /;
   5 use Template;
   6
   7 sub find_helptext_keys_in_fn {
   8     my ($self, $fn, $script) = @_;
   9     my @keys = ();
  10     my $t = Template->new({
  11         INCLUDE_PATH => [ $script->template_search_dir ],
  12         ABSOLUTE => 1,
  13     });
  14     my $out;
  15     $t->process($fn, { help_text => sub { push @keys, shift } }, \$out);
  16     return [ uniq @keys ];
  17 }
  18
  19 1;