X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FUUIDColumns.pm;h=1873c90bab9afd8cb8b56d39136f6adfa225dcdb;hb=701da8c4d6f0b78ffc015085aa410a6cacfcdb40;hp=2d5baec69eaa3e23a977cb0b9693db2e45e78e67;hpb=39e54ad026643adc23699f2e187c0e71ec4b6532;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/UUIDColumns.pm b/lib/DBIx/Class/UUIDColumns.pm index 2d5baec..1873c90 100644 --- a/lib/DBIx/Class/UUIDColumns.pm +++ b/lib/DBIx/Class/UUIDColumns.pm @@ -1,8 +1,6 @@ package DBIx::Class::UUIDColumns; use base qw/DBIx::Class/; -use Carp qw/croak/; - use Data::UUID; __PACKAGE__->mk_classdata( 'uuid_auto_columns' => [] ); @@ -34,7 +32,7 @@ Note that the component needs to be loaded before Core. sub uuid_columns { my $self = shift; for (@_) { - croak "column $_ doesn't exist" unless $self->has_column($_); + $self->throw_exception("column $_ doesn't exist") unless $self->has_column($_); } $self->uuid_auto_columns(\@_); }