- remove fancy_fills check, we now depend on an Imager release that
authorTony Cook <tony@develop-help.com>
Tue, 11 Dec 2007 10:28:54 +0000 (10:28 +0000)
committerTony Cook <tony@develop-help.com>
Tue, 11 Dec 2007 10:28:54 +0000 (10:28 +0000)
   supports fountain fills.

Changes
Graph.pm

diff --git a/Changes b/Changes
index 2fe2c5f..cd5e370 100644 (file)
--- a/Changes
+++ b/Changes
@@ -21,6 +21,9 @@ Imager-Graph 0.04
 
  - various changes for Kwalitee
 
+ - remove fancy_fills check, we now depend on an Imager release that
+   supports fountain fills.
+
 Imager-Graph 0.02  Sat Oct  6 20:36:31 2001
 =================
 
index 1766777..d004f85 100644 (file)
--- a/Graph.pm
+++ b/Graph.pm
@@ -35,16 +35,10 @@ and image fills, and masked images.
 use strict;
 use vars qw($VERSION);
 use Imager qw(:handy);
+use Imager::Fountain;
 
 $VERSION = '0.03_01';
 
-my $fancy_fills = 0;
-my ($im_version) = ($Imager::VERSION =~ /(\d\.[\d_]+)/);
-if ($im_version > 0.38) {
-  ++$fancy_fills;
-  require 'Imager/Fountain.pm';
-}
-
 # the maximum recursion depth in determining a color, fill or number
 use constant MAX_DEPTH => 10;
 
@@ -731,10 +725,7 @@ my %styles =
            blur=>undef,
           },
    },
-  );
-
-if ($fancy_fills) {
-  $styles{fount_lin} =
+   fount_lin =>
    {
     fills=>
     [
@@ -779,9 +770,9 @@ if ($fancy_fills) {
     fg=>'000000',
     bg=>'FFFFFF',
     features=>{ dropshadow=>1 },
-   };
-   $styles{fount_rad} =
-     {
+   },
+   fount_rad =>
+   {
     fills=>
     [
      { fountain=>'radial',
@@ -823,8 +814,8 @@ if ($fancy_fills) {
               colors=>[ NC('6060FF'), NC('60FF60') ]) },
     fg=>'000000',
     bg=>'FFFFFF',
-   };
-}
+   }
+  );
 
 =item $self->_style_setup(\%opts)
 
@@ -950,6 +941,7 @@ in the style and the product is returned.
 =back
 
 =cut
+
 sub _get_number {
   my ($self, $name, @depth) = @_;