Add strict/warnings test, adjust all offenders (wow, that was a lot)
[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Schema / Encoded.pm
index 7fd77dc..aab5d9f 100644 (file)
@@ -1,11 +1,11 @@
 package # hide from PAUSE
     DBICTest::Schema::Encoded;
 
-use base qw/DBICTest::BaseResult/;
-
 use strict;
 use warnings;
 
+use base qw/DBICTest::BaseResult/;
+
 __PACKAGE__->table('encoded');
 __PACKAGE__->add_columns(
     'id' => {
@@ -21,6 +21,8 @@ __PACKAGE__->add_columns(
 
 __PACKAGE__->set_primary_key('id');
 
+__PACKAGE__->has_many (keyholders => 'DBICTest::Schema::Employee', 'encoded');
+
 sub set_column {
   my ($self, $col, $value) = @_;
   if( $col eq 'encoded' ){