13 files changed, 104 insertions, 0 deletions
diff --git a/perl/Wallet/Schema.pm b/perl/Wallet/Schema.pm
index 6868876..fc63447 100644
--- a/perl/Wallet/Schema.pm
+++ b/perl/Wallet/Schema.pm
@@ -1,3 +1,11 @@
+# Database schema and connector for the wallet system.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/Acl.pm b/perl/Wallet/Schema/Result/Acl.pm
index 7fe395b..226738a 100644
--- a/perl/Wallet/Schema/Result/Acl.pm
+++ b/perl/Wallet/Schema/Result/Acl.pm
@@ -1,3 +1,11 @@
+# Wallet schema for an ACL.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::Acl;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/AclEntry.pm b/perl/Wallet/Schema/Result/AclEntry.pm
index a5ae5fa..a33a98c 100644
--- a/perl/Wallet/Schema/Result/AclEntry.pm
+++ b/perl/Wallet/Schema/Result/AclEntry.pm
@@ -1,3 +1,11 @@
+# Wallet schema for an entry in an ACL.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::AclEntry;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/AclHistory.pm b/perl/Wallet/Schema/Result/AclHistory.pm
index cc3978b..d3ef901 100644
--- a/perl/Wallet/Schema/Result/AclHistory.pm
+++ b/perl/Wallet/Schema/Result/AclHistory.pm
@@ -1,3 +1,11 @@
+# Wallet schema for ACL history.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::AclHistory;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/AclScheme.pm b/perl/Wallet/Schema/Result/AclScheme.pm
index 8f76530..91a58b2 100644
--- a/perl/Wallet/Schema/Result/AclScheme.pm
+++ b/perl/Wallet/Schema/Result/AclScheme.pm
@@ -1,3 +1,11 @@
+# Wallet schema for ACL scheme.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::AclScheme;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/Enctype.pm b/perl/Wallet/Schema/Result/Enctype.pm
index ca54de5..5733669 100644
--- a/perl/Wallet/Schema/Result/Enctype.pm
+++ b/perl/Wallet/Schema/Result/Enctype.pm
@@ -1,3 +1,11 @@
+# Wallet schema for Kerberos encryption type.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::Enctype;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/Flag.pm b/perl/Wallet/Schema/Result/Flag.pm
index 9b98da9..e223ff8 100644
--- a/perl/Wallet/Schema/Result/Flag.pm
+++ b/perl/Wallet/Schema/Result/Flag.pm
@@ -1,3 +1,11 @@
+# Wallet schema for object flags.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::Flag;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/KeytabEnctype.pm b/perl/Wallet/Schema/Result/KeytabEnctype.pm
index 3de620f..daea724 100644
--- a/perl/Wallet/Schema/Result/KeytabEnctype.pm
+++ b/perl/Wallet/Schema/Result/KeytabEnctype.pm
@@ -1,3 +1,11 @@
+# Wallet schema for keytab enctype.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::KeytabEnctype;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/KeytabSync.pm b/perl/Wallet/Schema/Result/KeytabSync.pm
index 77ee23d..ca84277 100644
--- a/perl/Wallet/Schema/Result/KeytabSync.pm
+++ b/perl/Wallet/Schema/Result/KeytabSync.pm
@@ -1,3 +1,11 @@
+# Wallet schema for keytab synchronization.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::KeytabSync;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/Object.pm b/perl/Wallet/Schema/Result/Object.pm
index 7f59d27..fd64e1b 100644
--- a/perl/Wallet/Schema/Result/Object.pm
+++ b/perl/Wallet/Schema/Result/Object.pm
@@ -1,3 +1,11 @@
+# Wallet schema for an object.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::Object;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/ObjectHistory.pm b/perl/Wallet/Schema/Result/ObjectHistory.pm
index df0a7df..9cbb159 100644
--- a/perl/Wallet/Schema/Result/ObjectHistory.pm
+++ b/perl/Wallet/Schema/Result/ObjectHistory.pm
@@ -1,3 +1,11 @@
+# Wallet schema for object history.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::ObjectHistory;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/SyncTarget.pm b/perl/Wallet/Schema/Result/SyncTarget.pm
index 27174f5..4300a54 100644
--- a/perl/Wallet/Schema/Result/SyncTarget.pm
+++ b/perl/Wallet/Schema/Result/SyncTarget.pm
@@ -1,3 +1,11 @@
+# Wallet schema for synchronization targets.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::SyncTarget;
 
 use strict;
diff --git a/perl/Wallet/Schema/Result/Type.pm b/perl/Wallet/Schema/Result/Type.pm
index 5b2e1d0..748a8a8 100644
--- a/perl/Wallet/Schema/Result/Type.pm
+++ b/perl/Wallet/Schema/Result/Type.pm
@@ -1,3 +1,11 @@
+# Wallet schema for object types.
+#
+# Written by Jon Robertson <jonrober@stanford.edu>
+# Copyright 2012, 2013
+#     The Board of Trustees of the Leland Stanford Junior University
+#
+# See LICENSE for licensing terms.
+
 package Wallet::Schema::Result::Type;
 
 use strict;