lib/SGN/Feature/ITAG.pm

   1 package SGN::Feature::ITAG;
   2
   3 use Moose;
   4 use MooseX::Types::Path::Class qw | Dir |;
   5 use CXGN::ITAG::Release;
   6 use CXGN::ITAG::Pipeline;
   7
   8 extends 'SGN::Feature';
   9
  10 has 'pipeline_base' => (
  11     is       => 'ro',
  12     isa      => Dir,
  13     required => 1,
  14     coerce   => 1,
  15 );
  16
  17 has 'releases_base' => (
  18     is       => 'ro',
  19     isa      => Dir,
  20     required => 1,
  21     coerce   => 1,
  22 );
  23
  24 sub pipeline {
  25     my $self = shift;
  26     CXGN::ITAG::Pipeline->open( @_, basedir => $self->pipeline_base );
  27 }
  28
  29 sub list_pipelines {
  30
  31     sort {$b <=> $a}
  32         CXGN::ITAG::Pipeline->list_pipelines( shift->pipeline_base );
  33
  34 }
  35
  36 sub find_release {
  37     my ( $self, $releasenum ) = @_;
  38     return CXGN::ITAG::Release->find(
  39         releasenum => $releasenum,
  40         dir        => $self->releases_base,
  41        );
  42 }
  43
  44 # around apache_conf => sub {
  45 #     my ($orig,$self) = @_;
  46
  47 #     my $cgi_url = '/sequencing/itag';
  48 #     my $cgi_bin = $self->path_to('cgi-bin');
  49
  50 #     return $self->$orig().<<EOC;
  51 # Alias $cgi_url  $cgi_bin
  52 # EOC
  53
  54 # }
  55
  56
  57 1;