X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FGetopt%2FSession.pm;h=0b10744f5b72e33e7a1ccf572afbeb4894aca270;hb=dd012666739d0d4f7f629b22b047a4c8117764a9;hp=57b5220443ac6a1cf1195ccb40a6363f7953005a;hpb=c7ecf9ea05c3f551abaf9588dc3fdcab13c4aec4;p=gitmo%2FMooseX-Getopt.git

diff --git a/lib/MooseX/Getopt/Session.pm b/lib/MooseX/Getopt/Session.pm
index 57b5220..0b10744 100644
--- a/lib/MooseX/Getopt/Session.pm
+++ b/lib/MooseX/Getopt/Session.pm
@@ -131,4 +131,11 @@ sub _get_cmd_type_for_attr {
 };
 
 
+sub strcat_warning {
+    my ($self, $string) = @_;
+
+    return $self->warning( ($self->has_warning ? $self->warning : '') . $string );
+};
+
+
 1;