sub _write_graph
{
    my $self  = shift;
    my $graph = shift;
    my $FILE  = shift;

    #while (<$FILE>)
    #{
    #}
    
    return 1;
}