t/lib/TestProp.pm

   1 package TestProp;
   2
   3 use Moose;
   4
   5 use Data::Dumper;
   6
   7 BEGIN { extends 'CXGN::JSONProp'; }
   8
   9 has 'info_field1' => (isa => 'Str', is => 'rw');
  10
  11 has 'info_field2' => (isa => 'Str', is => 'rw');
  12
  13 sub BUILD {
  14     my $self = shift;
  15     my $args = shift;
  16
  17     $self->prop_table('projectprop');
  18     $self->prop_namespace('Project::Projectprop');
  19     $self->prop_primary_key('projectprop_id');
  20     $self->prop_type('analysis_metadata_json');
  21     $self->cv_name('project_property');
  22     $self->allowed_fields( [ qw | info_field1 info_field2 | ] );
  23     $self->parent_table('project');
  24     $self->parent_primary_key('project_id');
  25
  26     $self->load();
  27 }
  28
  29 1;