view release on metacpan or  search on metacpan

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

  my $i = shift; # Only the i-th field group
  my $field_groups = shift;
  my $group_occurrence = shift;
  my @field = @{$field_groups->[$i]};
  my $occ  = $group_occurrence->[$i];
  my $rows = sum(values %$occ);
}

sub save {
    my ($obj,$file) = @_;
    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__