use strict;
use warnings;
-our $VERSION = '0.69';
-$VERSION = eval $VERSION;
-our $AUTHORITY = 'cpan:STEVAN';
-
use base qw(Moose::Error::Default);
-__PACKAGE__
+sub new {
+ my ( $self, @args ) = @_;
+ $self->create_error_confess(@args);
+}
-__END__
+1;
-=pod
+# ABSTRACT: Prefer C<confess>
-=head1 NAME
+__END__
-Moose::Error::Confess - Prefer C<confess>
+=pod
=head1 SYNOPSIS
- use metaclass => (
- metaclass => "Moose::Meta::Class",
- error_class => "Moose::Error::Confess",
+ # Metaclass definition must come before Moose is used.
+ use metaclass (
+ metaclass => 'Moose::Meta::Class',
+ error_class => 'Moose::Error::Confess',
);
+ use Moose;
+ # ...
=head1 DESCRIPTION