Commit | Line | Data |
---|---|---|
bf6fa6b3 | 1 | package Moose::Error::Croak; |
2 | ||
c0e91e5f | 3 | use strict; |
4 | use warnings; | |
5 | ||
ae18d5ec | 6 | our $AUTHORITY = 'cpan:STEVAN'; |
7 | ||
bf6fa6b3 | 8 | use base qw(Moose::Error::Default); |
9 | ||
10 | sub new { | |
11 | my ( $self, @args ) = @_; | |
12 | $self->create_error_croak(@args); | |
13 | } | |
14 | ||
15 | __PACKAGE__ | |
16 | ||
ad46f524 | 17 | # ABSTRACT: Prefer C<croak> |
18 | ||
bf6fa6b3 | 19 | __END__ |
20 | ||
21 | =pod | |
22 | ||
bf6fa6b3 | 23 | =head1 SYNOPSIS |
24 | ||
af1c30e0 | 25 | # Metaclass definition must come before Moose is used. |
26 | use metaclass ( | |
27 | metaclass => 'Moose::Meta::Class', | |
28 | error_class => 'Moose::Error::Croak', | |
bf6fa6b3 | 29 | ); |
af1c30e0 | 30 | use Moose; |
31 | # ... | |
bf6fa6b3 | 32 | |
33 | =head1 DESCRIPTION | |
34 | ||
35 | This error class uses L<Carp/croak> to raise errors generated in your | |
36 | metaclass. | |
37 | ||
38 | =head1 METHODS | |
39 | ||
40 | =over 4 | |
41 | ||
42 | =item new | |
43 | ||
44 | Overrides L<Moose::Error::Default/new> to prefer C<croak>. | |
45 | ||
46 | =back | |
47 | ||
48 | =cut | |
49 | ||
50 |