eliminate use vars

[imager.git] / lib / Imager / Transform.pm

diff --git a/lib/Imager/Transform.pm b/lib/Imager/Transform.pm
index 4563d340c02be7b47df96338bfe32114fc5e21a4..b6b945cd74995f265c4b995bbed7fac2d6e1fb3a 100644 (file)
--- a/lib/Imager/Transform.pm
+++ b/lib/Imager/Transform.pm
@@ -1,10 +1,10 @@
 package Imager::Transform;
 package Imager::Transform;

+use 5.006;

 use strict;
 use Imager;
 use Imager::Expr::Assem;
 use strict;
 use Imager;
 use Imager::Expr::Assem;

-use vars qw($VERSION);

 
 

-$VERSION = "1.004";
+our $VERSION = "1.007";

 
 my %funcs =
   (
 
 my %funcs =
   (


@@ -497,8 +497,18 @@ transformation.
 Returns a list of input image descriptions, or the number of them,
 depending on content.
 
 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)
 
 
 =item my $out = $tran->transform(\%opts, \%constants, @imgs)
 


@@ -519,6 +529,10 @@ Needs more transformations.
 
 =head1 SEE ALSO
 
 
 =head1 SEE ALSO
 

-Imager(3), transform.perl
+Imager(3), F<transform.perl>
+
+=head1 AUTHOR
+
+Tony Cook <tonyc@cpan.org>

 
 =cut
 
 =cut