Tweaked UUIDColumns

diff --git a/lib/DBIx/Class/UUIDColumns.pm b/lib/DBIx/Class/UUIDColumns.pm
index 08968da..2d5baec 100644 (file)
--- a/lib/DBIx/Class/UUIDColumns.pm
+++ b/lib/DBIx/Class/UUIDColumns.pm
@@ -40,12 +40,12 @@ sub uuid_columns {
 }
 
 sub insert {
-    my ($self) = @_;
+    my $self = shift;
     for my $column (@{$self->uuid_auto_columns}) {
        $self->store_column( $column, $self->get_uuid )
            unless defined $self->get_column( $column );
     }
-    $self->next::method;
+    $self->next::method(@_);
 }
 
 sub get_uuid {

diff --git a/t/basicrels/19uuid.t b/t/basicrels/19uuid.t
new file mode 100644 (file)
index 0000000..ec8222a
--- /dev/null
+++ b/t/basicrels/19uuid.t
@@ -0,0 +1,7 @@
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+use DBICTest::BasicRels;
+
+require "t/run/19uuid.tl";
+run_tests(DBICTest->schema);