1 package CatalystX::HelpText::Finder::TemplateToolkit;
3 use List::MoreUtils qw/ uniq /;
4 use MooseX::Types::Moose qw/Str/;
6 use namespace::autoclean;
8 has template_search_dir => (
14 sub find_helptext_keys_in_fn {
17 my $t = Template->new({
18 INCLUDE_PATH => [ $self->template_search_dir ],
22 $t->process($fn, { help_text => sub { my $key = shift; push @keys, $key if ($key) } }, \$out);
23 return [ uniq @keys ];
26 __PACKAGE__->meta->make_immutable;
31 CatalystX::HelpText::Finder::TemplateToolkit
35 Find helptext keys parsing the templates using Template
41 =item L<CatalystX::HelpText>
47 Toomas Doran, C<< t0m at state51.co.uk >>
49 Cinxgler Mariaca Minda, C<< cinxgler at ci-info.com >>
53 Copyright Oscar Music and Media 2011.
57 This sofware is free software, and is licensed under the same terms as perl itself.