* MooseX::Getopt::Parser::Descriptive reimplemented.

[gitmo/MooseX-Getopt.git] / lib / MooseX / Getopt / Session.pm

diff --git a/lib/MooseX/Getopt/Session.pm b/lib/MooseX/Getopt/Session.pm
index 57b5220..0b10744 100644 (file)
--- 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;