lib/Moose/Error/Croak.pm

   1 package Moose::Error::Croak;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw(Moose::Error::Default);
   7
   8 sub new {
   9     my ( $self, @args ) = @_;
  10     $self->create_error_croak(@args);
  11 }
  12
  13 __PACKAGE__
  14
  15 __END__
  16
  17 =pod
  18
  19 =head1 NAME
  20
  21 Moose::Error::Croak - Prefer C<croak>
  22
  23 =head1 SYNOPSIS
  24
  25         use metaclass => (
  26         metaclass => "Moose::Meta::Class",
  27         error_class => "Moose::Error::Croak",
  28     );
  29
  30 =head1 DESCRIPTION
  31
  32 This error class uses L<Carp/croak> to raise errors generated in your
  33 metaclass.
  34
  35 =head1 METHODS
  36
  37 =over 4
  38
  39 =item new
  40
  41 Overrides L<Moose::Error::Default/new> to prefer C<croak>.
  42
  43 =back
  44
  45 =cut
  46
  47