X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/f17b46d87ccbeb20c8f7d6e34790e516668ee4ee..df9aaafb81d12c95ba069a92507317c898b63873:/lib/Imager/Transform.pm

diff --git a/lib/Imager/Transform.pm b/lib/Imager/Transform.pm
index d44b2051..4c43abbe 100644
--- a/lib/Imager/Transform.pm
+++ b/lib/Imager/Transform.pm
@@ -4,7 +4,7 @@ use Imager;
 use Imager::Expr::Assem;
 use vars qw($VERSION);
 
-$VERSION = sprintf "%d.%03d", q$Revision$=~/\d+/g;
+$VERSION = "1.004";
 
 my %funcs =
   (
@@ -500,6 +500,16 @@ depending on content.
 The list contains hashrefs, which current contain only one member,
 desc, a description of the use of the input image.
 
+=item $tran->constants
+
+Return's 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)
 
 Perform the image transformation.