* Use Moose's throw_error() method.

diff --git a/ChangeLog b/ChangeLog
index 13b0379..7477c6f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 Revision history for Perl extension MooseX-Getopt
 
+0.150001 ???
+        * MooseX::Getopt
+          - Use Moose's throw_error() method. (dexter)
+
 0.15 Sat. July 26 2008
        * MooseX::Getopt::OptionTypeMap
          - Accept type constraint objects in the type mapping, not just names

diff --git a/lib/MooseX/Getopt.pm b/lib/MooseX/Getopt.pm
index 541706a..59e32a7 100644 (file)
--- a/lib/MooseX/Getopt.pm
+++ b/lib/MooseX/Getopt.pm
@@ -6,8 +6,6 @@ use MooseX::Getopt::OptionTypeMap;
 use MooseX::Getopt::Meta::Attribute;
 use MooseX::Getopt::Meta::Attribute::NoGetopt;
 
-use Carp ();
-
 use Getopt::Long (); # GLD uses it anyway, doesn't hurt
 use constant HAVE_GLD => not not eval { require Getopt::Long::Descriptive };
 
@@ -40,7 +38,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")
+    $class->throw_error("Single parameters to new_with_options() must be a HASH ref")
         unless ref($constructor_params) eq 'HASH';
 
     my %processed = $class->_parse_argv(