Data::Util::Error

        package Foo;
        use Data::Util::Error sub{ Foo::InvalidArgument->throw_error(@_) };
        use Data::Util qw(:validate);
        sub f{
                my $x_ref = array_ref shift; # Foo::InvalidArgument is thrown if invalid
                # ...
        }

Data::Util::Error->fail_handler()

Data::Util::Error->fail_handler($handler)

Data::Util::Error::croak(@args)

Data::Util.