initial checkin for UserStamp

[dbsrgits/DBIx-Class-UserStamp.git] / t / lib / DBIC / Test / Schema / Accessor.pm

diff --git a/t/lib/DBIC/Test/Schema/Accessor.pm b/t/lib/DBIC/Test/Schema/Accessor.pm
new file mode 100644 (file)
index 0000000..e5576ad
--- /dev/null
+++ b/t/lib/DBIC/Test/Schema/Accessor.pm
@@ -0,0 +1,43 @@
+package #
+    DBIC::Test::Schema::Accessor;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components(qw/UserStamp PK::Auto Core/);
+__PACKAGE__->table('test_accessor');
+
+__PACKAGE__->add_columns(
+    'pk1' => {
+        data_type => 'integer', is_nullable => 0, is_auto_increment => 1
+    },
+    display_name => { data_type => 'varchar', size => 128, is_nullable => 0 },
+    u_created => {
+        data_type => 'integer', is_nullable => 0,
+        store_user_on_create => 1, accessor => 'u_created_accessor',
+    },
+    u_updated => {
+        data_type => 'integer', is_nullable => 0,
+        store_user_on_create => 1, store_user_on_update => 1, accessor => 'u_updated_accessor',
+    },
+);
+
+__PACKAGE__->set_primary_key('pk1');
+
+no warnings 'redefine';
+
+sub u_created {
+    my $self = shift;
+    croak('Shouldnt be trying to update through u_created - should use accessor') if shift;
+
+    return $self->u_created_accessor();
+}
+
+sub u_updated {
+    my $self = shift;
+    croak('Shouldnt be trying to update through u_updated - should use accessor') if shift;
+
+    return $self->u_updated_accessor();
+}
+
+
+1;