eliminate use vars
[imager.git] / lib / Imager / Transform.pm
index d44b205..b6b945c 100644 (file)
@@ -1,10 +1,10 @@
 package Imager::Transform;
+use 5.006;
 use strict;
 use Imager;
 use Imager::Expr::Assem;
-use vars qw($VERSION);
 
-$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
+our $VERSION = "1.007";
 
 my %funcs =
   (
@@ -497,8 +497,18 @@ transformation.
 Returns a list of input image descriptions, or the number of them,
 depending on content.
 
-The list contains hashrefs, which current contain only one member,
-desc, a description of the use of the input image.
+The list contains hash references, which current contain only one
+member, C<desc>, a description of the use of the input image.
+
+=item $tran->constants
+
+Returns a list of names of constants that can be set for the
+transformation.
+
+=item $tran->constants($name, $name, ...)
+
+Returns a hashref for each named constant, which contains the default
+in key C<default> and a description in key C<desc>.
 
 =item my $out = $tran->transform(\%opts, \%constants, @imgs)
 
@@ -519,6 +529,10 @@ Needs more transformations.
 
 =head1 SEE ALSO
 
-Imager(3), transform.perl
+Imager(3), F<transform.perl>
+
+=head1 AUTHOR
+
+Tony Cook <tonyc@cpan.org>
 
 =cut