From 1575d5c34a2c6235bbf6a5010f8a8c142fe47079 Mon Sep 17 00:00:00 2001
From: Russ Allbery <eagle@eyrie.org>
Date: Fri, 11 Jul 2014 21:39:23 -0700
Subject: Switch to Module::Build for the Perl module

The wallet server now requires Perl 5.8 or later (instead of 5.006 in
previous versions) and is now built with Module::Build instead of
ExtUtils::MakeMaker.  This should be transparent to anyone not working
with the source code, since Perl 5.8 was released in 2002, but
Module::Build is now required to build the wallet server.  It is
included in some versions of Perl, or can be installed separately from
CPAN, distribution packages, or other sources.

Also reorganize the test suite to use subdirectories.

Change-Id: Id06120ba2bad1ebbfee3d8a48ca2f25869463165
Reviewed-on: https://gerrit.stanford.edu/1530
Reviewed-by: Russ Allbery <rra@stanford.edu>
Tested-by: Russ Allbery <rra@stanford.edu>
---
 perl/lib/Wallet/Schema/Result/ObjectHistory.pm | 135 +++++++++++++++++++++++++
 1 file changed, 135 insertions(+)
 create mode 100644 perl/lib/Wallet/Schema/Result/ObjectHistory.pm

(limited to 'perl/lib/Wallet/Schema/Result/ObjectHistory.pm')

diff --git a/perl/lib/Wallet/Schema/Result/ObjectHistory.pm b/perl/lib/Wallet/Schema/Result/ObjectHistory.pm
new file mode 100644
index 0000000..5e9c8bd
--- /dev/null
+++ b/perl/lib/Wallet/Schema/Result/ObjectHistory.pm
@@ -0,0 +1,135 @@
+# Wallet schema for object history.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013, 2014
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
+package Wallet::Schema::Result::ObjectHistory;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->load_components("InflateColumn::DateTime");
+
+=head1 NAME
+
+Wallet::Schema::Result::ObjectHistory - Wallet schema for object history
+
+=head1 DESCRIPTION
+
+=cut
+
+__PACKAGE__->table("object_history");
+
+=head1 ACCESSORS
+
+=head2 oh_id
+
+  data_type: 'integer'
+  is_auto_increment: 1
+  is_nullable: 0
+
+=head2 oh_type
+
+  data_type: 'varchar'
+  is_nullable: 0
+  size: 16
+
+=head2 oh_name
+
+  data_type: 'varchar'
+  is_nullable: 0
+  size: 255
+
+=head2 oh_action
+
+  data_type: 'varchar'
+  is_nullable: 0
+  size: 16
+
+=head2 oh_field
+
+  data_type: 'varchar'
+  is_nullable: 1
+  size: 16
+
+=head2 oh_type_field
+
+  data_type: 'varchar'
+  is_nullable: 1
+  size: 255
+
+=head2 oh_old
+
+  data_type: 'varchar'
+  is_nullable: 1
+  size: 255
+
+=head2 oh_new
+
+  data_type: 'varchar'
+  is_nullable: 1
+  size: 255
+
+=head2 oh_by
+
+  data_type: 'varchar'
+  is_nullable: 0
+  size: 255
+
+=head2 oh_from
+
+  data_type: 'varchar'
+  is_nullable: 0
+  size: 255
+
+=head2 oh_on
+
+  data_type: 'datetime'
+  datetime_undef_if_invalid: 1
+  is_nullable: 0
+
+=cut
+
+__PACKAGE__->add_columns(
+  "oh_id",
+  { data_type => "integer", is_auto_increment => 1, is_nullable => 0 },
+  "oh_type",
+  { data_type => "varchar", is_nullable => 0, size => 16 },
+  "oh_name",
+  { data_type => "varchar", is_nullable => 0, size => 255 },
+  "oh_action",
+  { data_type => "varchar", is_nullable => 0, size => 16 },
+  "oh_field",
+  { data_type => "varchar", is_nullable => 1, size => 16 },
+  "oh_type_field",
+  { data_type => "varchar", is_nullable => 1, size => 255 },
+  "oh_old",
+  { data_type => "varchar", is_nullable => 1, size => 255 },
+  "oh_new",
+  { data_type => "varchar", is_nullable => 1, size => 255 },
+  "oh_by",
+  { data_type => "varchar", is_nullable => 0, size => 255 },
+  "oh_from",
+  { data_type => "varchar", is_nullable => 0, size => 255 },
+  "oh_on",
+  {
+    data_type => "datetime",
+    datetime_undef_if_invalid => 1,
+    is_nullable => 0,
+  },
+);
+__PACKAGE__->set_primary_key("oh_id");
+
+# Add an index on object type and object name.
+sub sqlt_deploy_hook {
+    my ($self, $sqlt_table) = @_;
+    my $name = 'object_history_idx_oh_type_oh_name';
+    $sqlt_table->add_index (name => $name, fields => [qw(oh_type oh_name)]);
+}
+
+1;
-- 
cgit v1.2.3