CPAN::Groonga

existing
architecture consensus) of the BGC composition. For this, this script exports in
TSV and JSON format data from all detected domain signatures. 

This script, unlike the others, uses a FASTA f

n1_exploratory_domains

which will produce two_files in output: 'strain1_exploratory_domains.tsv' and 
'strain1_exploratory_domains.json'. 

This script does not take other option than C<--outfile>.

  
    my $cluster_rank = 1;
    
    # fix for antismash5: cluster order is not preserved during json2xml conversion
    my $cluster_list;
    unless ( 
        grep { $_->{genecluster}->{sequence}->

ce::autoclean;

use autodie;

use Carp;
use File::Basename 'fileparse';
use File::Temp;
use JSON::Parse 'json_file_to_perl';
use POSIX 'ceil';
use XML::Bare;
use XML::Hash::XS;

use aliased 'Bio::Pala

    my $js = $self->file;
    my $json = File::Temp->new(suffix => '.json');

    open my $in, '<', $js;
    chomp( my @lines = <$in> );

    open my $out, '>', $json->filename;
    for my $i (0 .. @l

$out;

    open my $in2, '<', $json->filename;
    while (my $line = <$in>){
        print $line;
    }

    my $root = json_file_to_perl($json->filename);

    my %json_for;
    my ($cluster_id, $gen

11';
use autodie;

use Getopt::Euclid qw(:vars);
use JSON::Create qw(create_json);

use aliased 'Bio::Palantir::Explorer::ClusterFasta';

my (%json_for, $i);

my $cluster = ClusterFasta->new( file => 

 @lines;

GENE:
for my $gene (sort { $a->rank <=> $b->rank } $cluster->all_genes) {
        
    $json_for{'no-taxonomy'}{Clusters}{++$i}{GenesPlus}{$gene->rank} = {
#                    uui =>  $gene

ubtype_evalue // 'NULL';
        my $subtype_score  = $domain->subtype_score // 'NULL';

        $json_for{'no-taxonomy'}{Clusters}{$i}{GenesPlus}{$gene->rank}{'Do'
        . 'mainsPlus'}{$domain->ran