@@ -1,5 +1,22 @@
Revision history for Perl extension Imager::Graph.
+Imager-Graph 0.12 - 12 May 2015
+=================
+
+ - increase tolerances on images with filled circles drawn on them to
+ account for the circle drawing change in Imager 1.002.
+ https://rt.cpan.org/Ticket/Display.html?id=103328
+
+Imager-Graph 0.11 - 30 Jun 2014
+=================
+
+ - POD fixes based on a report from Stefan Limbache, and also reported
+ by Slaven Rezić after I failed to do a release.
+ https://rt.cpan.org/Ticket/Display.html?id=95949
+
+ - skip POD tests unless AUTOMATED_TESTING or IMAGER_AUTHOR_TESTING is
+ set.
+
Imager-Graph 0.10 - 7 May 2012
=================
@@ -29,7 +29,7 @@ use vars qw($VERSION);
use Imager qw(:handy);
use Imager::Fountain;
-$VERSION = '0.10';
+$VERSION = '0.12';
# the maximum recursion depth in determining a color, fill or number
use constant MAX_DEPTH => 10;
@@ -2697,7 +2697,7 @@ Imager::Graph::Pie(3), Imager(3), perl(1).
=head1 AUTHOR
-Tony Cook <tony@develop-help.com>
+Tony Cook <tonyc@cpan.org>, Patrick Michaud
=head1 LICENSE
@@ -50,4 +50,5 @@ testimg/t34_points.png
testimg/t40area1.png
testimg/t40area2.png
TODO
-META.yml Module meta-data (added by MakeMaker)
+META.yml Module YAML meta-data (added by MakeMaker)
+META.json Module JSON meta-data (added by MakeMaker)
@@ -0,0 +1,52 @@
+{
+ "abstract" : "Draws good looking charts",
+ "author" : [
+ "Tony Cook <tony@develop-help.com>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.143240",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Imager-Graph",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Imager" : "0.75",
+ "Test::More" : "0.47",
+ "perl" : "5.006"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "bugtracker" : {
+ "web" : "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Imager-Graph"
+ },
+ "homepage" : "http://imager.perl.org/",
+ "repository" : {
+ "url" : "git://git.imager.perl.org/imager-graph.git"
+ }
+ },
+ "version" : "0.12"
+}
@@ -1,28 +1,28 @@
---- #YAML:1.0
-name: Imager-Graph
-version: 0.10
-abstract: Draws good looking pie graphs
+---
+abstract: 'Draws good looking charts'
author:
- - Tony Cook <tony@develop-help.com>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
+ - 'Tony Cook <tony@develop-help.com>'
build_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
+configure_requires:
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.143240'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: Imager-Graph
+no_index:
+ directory:
+ - t
+ - inc
requires:
- Imager: 0.75
- perl: 5.006
- Test::More: 0.47
+ Imager: '0.75'
+ Test::More: '0.47'
+ perl: '5.006'
resources:
- bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Imager-Graph
- homepage: http://imager.perl.org/
- repository: git://git.imager.perl.org/imager-graph.git
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.55_02
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Imager-Graph
+ homepage: http://imager.perl.org/
+ repository: git://git.imager.perl.org/imager-graph.git
+version: '0.12'
@@ -1,13 +1,13 @@
#!perl -w
use strict;
-require 5.005;
+require 5.006;
use ExtUtils::MakeMaker;
my %opts;
# eval to prevent warnings about versions with _ in them
my $MM_ver = eval $ExtUtils::MakeMaker::VERSION;
if ($MM_ver > 6.06) {
$opts{AUTHOR} = 'Tony Cook <tony@develop-help.com>';
- $opts{ABSTRACT} = 'Draws good looking pie graphs';
+ $opts{ABSTRACT} = 'Draws good looking charts';
}
if ($MM_ver >= 6.31) {
$opts{LICENSE} = 'perl';
@@ -4,6 +4,14 @@ package Imager::Graph::Horizontal;
Imager::Graph::Horizontal - A super class for line/bar charts
+=head1 DESCRIPTION
+
+This is a base class that implements base functionality for line and
+bar charts.
+
+The sub-classes, Imager::Graph::Bar and Imager::Graph::Line simply
+provide default data series types.
+
=cut
use strict;
@@ -13,9 +21,11 @@ use Imager::Graph;
use constant STARTING_MIN_VALUE => 99999;
-our $VERSION = "0.10";
+our $VERSION = "0.11";
-=over 4
+=head1 METHODS
+
+=over
=item add_data_series(\@data, $series_name)
@@ -580,8 +590,6 @@ sub _add_data_series {
return;
}
-=over
-
=item show_vertical_gridlines()
Shows vertical gridlines at the y-tics.
@@ -908,3 +916,10 @@ sub _composite {
1;
+=back
+
+=head1 AUTHOR
+
+Patrick Michaud, Tony Cook
+
+=cut
@@ -40,7 +40,7 @@ use Imager::Graph;
@ISA = qw(Imager::Graph);
use Imager::Fill;
-our $VERSION = "0.10";
+our $VERSION = "0.11";
use constant STARTING_MIN_VALUE => 99999;
@@ -1426,3 +1426,11 @@ sub _composite {
}
1;
+
+=back
+
+=head1 AUTHOR
+
+Patrick Michaud, Tony Cook.
+
+=cut
@@ -42,7 +42,7 @@ my $img1 = $line->draw();
ok($img1, "drawing line chart");
$img1->write(file=>'testout/t30_points.ppm') or die "Can't save img1: ".$img1->errstr."\n";
-cmpimg($img1, 'testimg/t30_points.png', 40_000);
+cmpimg($img1, 'testimg/t30_points.png', 200_000);
unless (is(@warned, 0, "should be no warnings")) {
diag($_) for @warned;
@@ -44,7 +44,7 @@ my $img1 = $line->draw();
ok($img1, "drawing line chart");
$img1->write(file=>'testout/t32_series.ppm') or die "Can't save img1: ".$img1->errstr."\n";
-cmpimg($img1, 'testimg/t32_series.png', 80_000);
+cmpimg($img1, 'testimg/t32_series.png', 200_000);
unless (is(@warned, 0, "should be no warnings")) {
diag($_) for @warned;
@@ -2,6 +2,8 @@
use strict;
use Test::More;
use ExtUtils::Manifest qw(maniread);
+$ENV{AUTOMATED_TESTING} || $ENV{IMAGER_AUTHOR_TESTING}
+ or plan skip_all => "POD only tested under automated or author testing";
eval "use Test::Pod 1.00;";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
all_pod_files_ok();
@@ -1,6 +1,8 @@
#!perl -w
use strict;
use Test::More;
+$ENV{AUTOMATED_TESTING} || $ENV{IMAGER_AUTHOR_TESTING}
+ or plan skip_all => "POD only tested under automated or author testing";
eval "use Test::Pod::Coverage 1.08;";
# 1.08 required for coverage_class support
plan skip_all => "Test::Pod::Coverage 1.08 required for POD coverage" if $@;