From: Tomas Doran <bobtfish@bobtfish.net>
Date: Tue, 27 Sep 2011 14:45:01 +0000 (+0100)
Subject: Add help_text as an exposed method
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=389a811f9dee95ce1d2137fcd9dc4e6298f9f4c2;p=catagits%2FCatalystX-HelpText.git

Add help_text as an exposed method
---

diff --git a/lib/CatalystX/HelpText/Role/HelpText.pm b/lib/CatalystX/HelpText/Role/HelpText.pm
index 1ff495e..bc29848 100644
--- a/lib/CatalystX/HelpText/Role/HelpText.pm
+++ b/lib/CatalystX/HelpText/Role/HelpText.pm
@@ -2,6 +2,14 @@ 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 {
@@ -13,4 +21,4 @@ sub help_text {
     };
 }
 
-1;
\ No newline at end of file
+1;