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

package CatalystX::HelpText::Role::HelpText;
use Moose::Role;
use Try::Tiny;

requires 'expose_methods';

around expose_methods => sub {
    my ($orig, $self, @args) = @_;
    my @m = $self->$orig(@args)->flatten;
    [ @m, '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;
Commit	Line	Data
3259663d	1	package CatalystX::HelpText::Role::HelpText;
	2	use Moose::Role;
	3	use Try::Tiny;
	4
389a811f	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
3259663d	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
389a811f	24	1;