lib/SGN/Controller/Trait.pm

   1 package SGN::Controller::Trait;
   2
   3 =head1 NAME
   4
   5 SGN::Controller::Trait - Catalyst controller for pages dealing with traits (these are cvterms, specifically Solanaceae Phenotype terms)
   6
   7 =cut
   8
   9 use Moose;
  10 use namespace::autoclean;
  11
  12 use HTML::FormFu;
  13 use URI::FromHash 'uri';
  14 use YAML::Any;
  15
  16 has 'schema' => (
  17 is => 'rw',
  18 isa => 'DBIx::Class::Schema',
  19 required => 0,
  20 );
  21
  22 has 'default_page_size' => (
  23 is => 'ro',
  24 default => 20,
  25 );
  26
  27
  28 BEGIN { extends 'Catalyst::Controller' }
  29 with 'Catalyst::Component::ApplicationAttribute';
  30
  31
  32
  33 sub _validate_pair {
  34     my ($self,$c,$key,$value) = @_;
  35     $c->throw( message => "$value is not a valid value for $key" )
  36         if ($key =~ m/_id$/ and $value !~ m/\d+/);
  37 }
  38
  39 sub search :Path('/trait/search') Args(0) {
  40     my ( $self, $c ) = @_;
  41     $self->schema( $c->dbic_schema('Bio::Chado::Schema','sgn_chado') );
  42
  43     $c->stash(
  44         template => '/ontology/traits.mas',
  45         );
  46 }
  47
  48
  49
  50 ######
  51 1;
  52 ######