view release on metacpan or  search on metacpan

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

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

=head1 COPYRIGHT

Copyright 2004 by Kang-min Liu <gugod@gugod.org>.

This program is free software; you can redistribute it and/or

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

    for my $format (qw (png gif jpg tiff ppm)) {
        if ($Imager::formats{$format}) {
            $obj->write(file=>"${file}.${format}")
                or die $obj->errstr;
            print STDERR "${file}.${format} saved";
            last;
        }
    }
}

__DATA__

=head1 NAME

Algorithm::Accounting::Report::Text - generate text version report

=head1 COPYRIGHT

Copyright 2004 by Kang-min Liu <gugod@gugod.org>.

This program is free software; you can redistribute it and/or

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

      @fv, (100 * $occ->{$_} / $rows);
  }
  print form $sep;
  print form
    '|{' . '<' x (15*(1+@field) - 3) . '}|',
    "Total records: $rows",
    $sep, "\n";
}


__DATA__

=head1 NAME

Algorithm::Accounting::Report::Text - generate text version report

=head1 COPYRIGHT

Copyright 2004 by Kang-min Liu <gugod@gugod.org>.

This program is free software; you can redistribute it and/or