1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# makes objects from parser events
package GO::Handlers::rdf;
use base qw(GO::Handlers::obj);
use FileHandle;
use GO::IO::XML;
use strict;
sub _valid_params { qw(w fh strictorder) }
#sub init {
# my $self = shift;
# $self->SUPER::init(@_);
# my $fh = FileHandle->new;
# my $fh = \*STDOUT;
# $self->fh($fh);
# return;
#}
sub e_obo {
my $self = shift;
my $g = $self->g;
my $xml_out = GO::IO::XML->new(-output=>$self->safe_fh);
$xml_out->start_document();
$xml_out->draw_node_graph(-graph=>$g);
$xml_out->end_document();
return;
}
1;
|
