From: Tomas Doran Date: Tue, 27 Sep 2011 14:47:11 +0000 (+0100) Subject: Rename to be more obvious, add basic synopsis of use X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalystX-HelpText.git;a=commitdiff_plain;h=2596d5d2c8eda4d37d29067053c83dde9aa09f29 Rename to be more obvious, add basic synopsis of use --- diff --git a/lib/CatalystX/HelpText/Role/HelpText.pm b/lib/CatalystX/HelpText/Role/HelpText.pm deleted file mode 100644 index bc29848..0000000 --- a/lib/CatalystX/HelpText/Role/HelpText.pm +++ /dev/null @@ -1,24 +0,0 @@ -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;