Actually starting to work

[catagits/CatalystX-HelpText.git] / lib / CatalystX / HelpText / ViewRole.pm

package CatalystX::HelpText::ViewRole;
use Moose::Role;
use Try::Tiny;
use Moose::Autobox;
use namespace::autoclean;

requires 'expose_methods';

around expose_methods => sub {
    my ($orig, $self, @args) = @_;
    my $m = $self->$orig(@args) || [];
    [ $m->flatten, 'help_text' ];
};

sub help_text {
    my ($self, $c, $key) = @_;
    try {
        return $c->model('Help')->get_help_text_for($c, $key);
    }
    catch {
        $c->log->warn("Error retrieving help_text: ".$_);
        return '';
    };
}

1;

=head1 NAME

CatalystX::HelpText::ViewRole - Role to be applied to Views

=head1 SYNOPSIS

  package MyApp::View::HTML;
  use Moose;

  extends 'Catalyst::View::TT';
  with 'CatalystX::HelpText::ViewRole';

  ... then, in your template code ...

  [% helptext('SomeHelpTopic') %]

=cut