lib/CatalystX/HelpText/Role/HelpText.pm

   1 package CatalystX::HelpText::Role::HelpText;
   2 use Moose::Role;
   3 use Try::Tiny;
   4
   5 requires 'expose_methods';
   6
   7 around expose_methods => sub {
   8     my ($orig, $self, @args) = @_;
   9     my @m = $self->$orig(@args)->flatten;
  10     [ @m, 'help_text' ];
  11 };
  12
  13 sub help_text {
  14     my ($self, $c, $key) = @_;
  15     try {
  16         return $c->model('Help')->get_help_text_for($c, $key);
  17     }
  18     catch {
  19         $c->log->warn("Error retrieving help_text: ".$_);
  20         return '';
  21     };
  22 }
  23
  24 1;