/usr/local/CPAN/GOBO/GOBO/Writers/Writer.pm

• package GOBO::Writers::Writer
  • create
  • init_fh
  • xxxfile
  • write
  • printrow
  • print
  • println
  • printf
  • nl
• EOF

package GOBO::Writers::Writer;
use Moose;
use strict;
use GOBO::Graph;
use FileHandle;

has fh => (is=>'rw', isa=>'Maybe[FileHandle]', clearer=>'clear_fh', predicate=>'has_fh');
#has fh => (is=>'rw', isa=>'FileHandle' );
has file => (is=>'rw', isa=>'Str');
has graph => (is=>'rw', isa=>'GOBO::Graph');

sub create {
    my $proto = shift;
    my %argh = @_;
    my $fmt = $argh{format};
    if ($fmt) {
        my $pc;
        if ($fmt eq 'obo') {
            $pc = 'GOBO::Writers::OBOWriter';
        }
#        require $pc;
        return $pc->new(%argh);
    }
}

sub init_fh {
    my $self = shift;
    if (!$self->fh) {
        my $f = $self->file;
        my $fh;
        if ($f) {
            $fh = FileHandle->new(">$f");
        }
        if (!$fh) {
            $fh = FileHandle->new(">-");
        }
        $self->fh($fh);
    }
}

sub xxxfile {
    my $self = shift;
    if (@_) {
        my ($f) = @_;
        $self->{file} = $f;
        $self->fh(FileHandle->new(">$f"));
    }
    
    return $self->{file};
}

sub write {
    my $self = shift;

    my %ah = @_;
    if ($ah{graph}) {
        $self->graph($ah{graph});
    }
    $self->init_fh;
    $self->write_header;
    $self->write_body;
}

sub printrow {
    my $self = shift;
    my $row = shift;
    my $fh = $self->fh;
    print $fh join("\t",@$row),"\n";
    return;
}

sub print {
    my $self = shift;
    my $fh = $self->fh;
    print $fh @_;
    return;
}

sub println {
    my $self = shift;
    my $fh = $self->fh;
    print $fh @_,"\n";
    return;
}

sub printf {
    my $self = shift;
    my $fmt = shift;
    my $fh = $self->fh;
    #if (grep {!defined($_)} @_) {
    #    confess "undefined value in @_";
    #}
    printf $fh $fmt, @_;
    return;
}

sub nl {
    my $self = shift;
    my $fh = $self->fh;
    print $fh "\n";
    return;
}


1;