eliminate use vars
[imager.git] / lib / Imager / Color / Table.pm
index c1b8af5..c352ecf 100644 (file)
@@ -1,8 +1,8 @@
 package Imager::Color::Table;
 use strict;
-use vars qw($VERSION);
+use 5.006;
 
-$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
+our $VERSION = "1.004";
 
     my %colors;
 
@@ -811,6 +811,7 @@ __DATA__
 144 238 144            light green
 144 238 144            LightGreen
 __END__
+
 =head1 NAME
 
 Imager::Color::Table - built-in Imager color table
@@ -825,12 +826,23 @@ Imager::Color::Table - built-in Imager color table
 
 This class provides a base color table for use in resolving color names.
 
-The table contains the standard X11 rgb.txt colors.
+The table contains the standard X11 C<rgb.txt> colors.
 
 This table is not included as part of Imager::Color itself since it's
 moderately large.
 
-There is only one method: get($name).
+There is only one method:
+
+=over
+
+=item get
+
+  my @rgb = Imager::Color::Table->get('red')
+    or die "No red found";
+
+Retrieves a color from Imager::Color::Tables built-in color table.
+
+=back
 
 =head1 AUTHOR