view release on metacpan or  search on metacpan

lib/Algorithm/Accounting/Report/GDGraph.pm  view on Meta::CPAN

  $self->save($img,$filename,$graph->export_format);
}

sub report_field_group_occurrence_percentage {
    print STDERR "XXX: Fixme. I don't now how to draw group occurrence into graphs\n";
}

sub save {
    my ($obj,$file,$format) = @_;
    open(IMG, ">${file}.${format}") or die $!;
    binmode IMG;
    print IMG $obj->$format();
    close IMG;
    print STDERR "${file}.${format} saved\n";
}

__DATA__

=head1 NAME

Algorithm::Accounting::Report::GDGraph - generate graph report using GD