Pull exiting with useage out into a method

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

diff --git a/lib/MooseX/Getopt/Basic.pm b/lib/MooseX/Getopt/Basic.pm
index 453b913..5000746 100644 (file)
--- a/lib/MooseX/Getopt/Basic.pm
+++ b/lib/MooseX/Getopt/Basic.pm
@@ -55,7 +55,7 @@ sub new_with_options {
     }
 
     my $constructor_params = ( @params == 1 ? $params[0] : {@params} );
-    
+
     Carp::croak("Single parameters to new_with_options() must be a HASH ref")
         unless ref($constructor_params) eq 'HASH';
 
@@ -71,7 +71,7 @@ sub new_with_options {
     # did the user request usage information?
     if ( $processed{usage} && ($params->{'?'} or $params->{help} or $params->{usage}) )
     {
-        $processed{usage}->die();
+        $class->_exit_with_usage($processed{usage});
     }
 
     $class->new(
@@ -82,6 +82,11 @@ sub new_with_options {
     );
 }
 
+sub _exit_with_usage {
+    my ($self, $usage) = @_;
+    $usage->die();
+}
+
 sub _parse_argv {
     my ( $class, %params ) = @_;