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