view release on metacpan or  search on metacpan

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

21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
  $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