cybersiddhu

#!/usr/bin/perl -w

use strict;
use Pod::Usage;
use Getopt::Long;

GetOptions( 'h|help' => sub { pod2usage(1); } );

pod2usage("no module name given") if !$ARGV[0];

cybersiddhu

package DictyREST;

use strict;
use warnings;


use base 'Mojolicious';
use Config::Simple;
use Carp;
use File::Spec::Functions;

cybersiddhu

package DictyREST;

use strict;
use warnings;


use base 'Mojolicious';
use Config::Simple;
use Carp;
use File::Spec::Functions;

cybersiddhu

package DictyREST::Controller::Page;

use strict;
use warnings;
use base qw/Mojolicious::Controller/;
use dicty::UI::Tabview::Page::Gene;
use dicty::Factory::Tabview::Tab;
use dicty::Factory::Tabview::Section;

sub index {

cybersiddhu

package DictyREST::Controller::Tab;

use strict;
use warnings;
use base qw/Mojolicious::Controller/;
use dicty::UI::Tabview::Page::Gene;
use dicty::Factory::Tabview::Tab;
use dicty::Factory::Tabview::Section;

sub section {

cybersiddhu

package DictyREST::Renderer::JSON;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('1.0.0');

# Other modules:
use base 'Mojo::Base';

cybersiddhu

package DictyREST::Renderer::TT;

use warnings;
use strict;
use Carp qw/confess cluck carp/;

use version; our $VERSION = qv('1.0.0');

# Other modules:
use base 'Mojo::Base';

cybersiddhu

package DictyREST::Helper;

use version; our $VERSION = qv('1.0.0');

# Other modules:
use base qw/Mojo::Base/;
use dicty::Gene;

# Module implementation
#

cybersiddhu

#!/usr/bin/perl -w

use strict;
use Pod::Usage;
use Getopt::Long;
use File::Spec::Functions;
use FindBin qw/$Bin/;
use Bio::Chado::Schema;
use DBIx::Class::Fixtures;

cybersiddhu

{
	sets: [
		{
			class: 'Cv::Cv', 
			quantity: 'all', 
			fetch: [ {
					rel: 'cvterms', 
					quantity: 'all', 
					fetch: [ {
							rel: 'dbxref',