lib/SGN/Controller/BrAPIClient.pm

   1
   2 package SGN::Controller::BrAPIClient;
   3
   4 use Moose;
   5
   6 BEGIN { extends 'Catalyst::Controller' };
   7
   8 sub home : Path('/brapihome/') Args(0) {
   9     my $self = shift;
  10     my $c = shift;
  11     $c->stash->{template} = 'brapiclient/home.mas';
  12 }
  13
  14 sub germplasm : Path('/brapihome/germplasm') Args(0) {
  15     my $self = shift;
  16     my $c = shift;
  17     $c->stash->{template} = 'brapiclient/germplasm_search.mas';
  18 }
  19
  20 sub phenotyping_handhelds : Path('/brapihome/phenotyping_handhelds') Args(0) {
  21     my $self = shift;
  22     my $c = shift;
  23     $c->stash->{template} = 'brapiclient/phenotyping_handhelds.mas';
  24 }
  25
  26 sub phenotype : Path('/brapihome/phenotype') Args(0) {
  27     my $self = shift;
  28     my $c = shift;
  29     $c->stash->{template} = 'brapiclient/phenotypes_search.mas';
  30 }
  31
  32 sub genotype : Path('/brapihome/genotype') Args(0) {
  33     my $self = shift;
  34     my $c = shift;
  35     $c->stash->{template} = 'brapiclient/markerprofile_allelematrix.mas';
  36 }
  37
  38 sub index : Path('/brapiclient/comparegenotypes') Args(0) {
  39     my $self = shift;
  40     my $c = shift;
  41     $c->stash->{template} = 'brapiclient/comparegenotypes.mas';
  42 }
  43
  44 1;