uence
Method used to get subsequence stretch of gene, returning the sequence, had to return in a json!
=cut
=head2
Method used to return subevidences based on feature id
=cut
=head2
Method us
TML_DB::Models::Services::BaseResponse;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
This class will be used like a model of response returned from services
=cut
has stat
$request = HTTP::Request->new( GET => $url );
$request->header( 'Content-Type' => 'application/json' );
my $response = $user_agent->request($request);
return $response->content;
}
elsif ( $me
r($parameters));
use JSON;
$request->content( encode_json($parameters) );
$request->header(
'Content-Type' => 'application/json',
'Accept' => 'application/json'
);
my $response =
ML_DB::Models::Application::Feature;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
This class will be used like a model responsible of result of features
=cut
h
=> $url );
$request->content($parameters);
}
$request->header( 'content_type' => 'application/json' );
my $response = $user_agent->request($request);
return $response->content;
}
sub stringifyP
Application::TranscriptionalTerminator;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
This class will be used to represent transcriptional terminator results
=cut
has cont
arquivo example.html
# Pega o conteúdo e concatena a query no script SQL
#
###
$scriptSQL .= readJSON($html_file);
print $LOG "\n$html_file read!\n";
#apaga diretorios antigos com fastas
print $LOG
pendences:\ncpan DBIx::Class Catalyst::Devel Catalyst::Runtime Catalyst::View::TT Catalyst::View::JSON Catalyst::Model::DBIC::Schema DBIx::Class::Schema::Loader MooseX::NonMoose\n";
exit;
}
chomp
\$formData = do { local \$/; <\$FILEHANDLER> };
close(\$FILEHANDLER);
use JSON;
my \%hash = \%{ decode_json(\$formData) };
foreach my \$key ( keys \%hash ) {
if (\$key) {
Models::Application::AlienHunterSearch;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
This is a class of a alien hunter result search
=cut
has id => ( is => 'ro',
_DB::Models::Application::TRFSearch;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
This class will be used like a model responsible of results from tandem repeats ann
odels::Services::PagedResponse;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
This class will be used to be a model of paged responses returned from services
=cut
L_DB::Models::Application::Subevidence;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
Class used to represent data of subevidence
=cut
has id => ( is => '
TML_DB::Models::Application::RBSSearch;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
This class will be used to represent ribosomal binding site results
=cut
has contig
L_DB::Models::Application::NcRNASearch;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
Class used to represent non coding RNA search result
=cut
has id => ( is =>
DB::Models::Application::TRNASearch;
use Moose;
use MooseX::Storage;
with Storage('format' => 'JSON');
=pod
This class will be used like a model responsible of results from tRNA annotations
arquivo example.html
# Pega o conteúdo e concatena a query no script SQL
#
###
$scriptSQL .= readJSON($html_file);
print $LOG "\n$html_file read!\n";
#apaga diretorios antigos com fastas
print $LOG
pendences:\ncpan DBIx::Class Catalyst::Devel Catalyst::Runtime Catalyst::View::TT Catalyst::View::JSON Catalyst::Model::DBIC::Schema DBIx::Class::Schema::Loader MooseX::NonMoose\n";
exit;
}
chomp
\$formData = do { local \$/; <\$FILEHANDLER> };
close(\$FILEHANDLER);
use JSON;
my \%hash = \%{ decode_json(\$formData) };
foreach my \$key ( keys \%hash ) {
if (\$key) {