CPAN::Groonga

json;
use strict;
use Bio::BioVeL::Service::NeXMLMerger::MetaReader;
use base 'Bio::BioVeL::Service::NeXMLMerger::MetaReader';
use JSON;

=over

=item read_meta

Function to read meta data from a json

$json =  do { local $/; <$fh> };
    if ( my $data = decode_json($json) ) { 
    	$log->info("successfully parsed JSON");
		@result = @{ $data };
    }
    else {
    	$log->warn("problem parsing JSON

: $json");
    }
    return @result;
}

1;

S|Newick|PhyloXML|NeXML
			'dataformat',  # NEXUS|PHYLIP|FASTA|Stockholm 
			'metaformat',  # tsv|JSON|csv
		],
		@_,
	);	
    return $self;
}

=item response_header

Returns the MIME-type HTTP header

l or as URL
 	'-dataformat'    => 'nexus',
 	'-treeformat'    => 'newick',
 	'-metaformat'    => 'json',
 	'-charsetformat' => 'nexus',
 );

 my $merger = Bio::BioVeL::Service::NeXMLMerger->new;
 my $