G::IO::Bioperl

    use G::IO::Bioperl;
    $gb = G::IO::Bioperl::convert($bioperl);

    This class is intended to be called internally.

    eval "use Bio::Perl;";
    if ($@) { warn "$@" };

    my $bpobj = shift;

    my $tmpname = "G-INTERNAL-" . $ENV{USER} . time() . rand();
    write_sequence(">/tmp/$tmpname.gbk", "genbank", $bpobj);

    my $this = new G::Skyline("/tmp/$tmpname.gbk", "no msg");
    unlink("/tmp/$tmpname.gbk");

    return $this;