home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / utils.pm < prev    next >
Encoding:
Perl POD Document  |  2003-02-10  |  1.2 KB  |  50 lines
  1. #==========================================================================
  2. #              Copyright (c) 1995-1999 Martien Verbruggen
  3. #--------------------------------------------------------------------------
  4. #
  5. #   Name:
  6. #       GD::Graph::utils.pm
  7. #
  8. #   Description:
  9. #       Package of general utilities.
  10. #
  11. # $Id: utils.pm,v 1.7 2003/02/10 22:12:41 mgjv Exp $
  12. #
  13. #==========================================================================
  14.  
  15. package GD::Graph::utils;
  16.  
  17. ($GD::Graph::utils::VERSION) = '$Revision: 1.7 $' =~ /\s([\d.]+)/;
  18.  
  19. use strict;
  20.  
  21. use vars qw( @EXPORT_OK %EXPORT_TAGS );
  22. require Exporter;
  23.  
  24. @GD::Graph::utils::ISA = qw( Exporter );
  25.  
  26. @EXPORT_OK = qw(_max _min _round);
  27. %EXPORT_TAGS = (all => [qw(_max _min _round)]);
  28.  
  29. sub _max { 
  30.     my ($a, $b) = @_; 
  31.     return undef    if (!defined($a) and !defined($b));
  32.     return $a       if (!defined($b));
  33.     return $b       if (!defined($a));
  34.     ( $a >= $b ) ? $a : $b; 
  35. }
  36.  
  37. sub _min { 
  38.     my ($a, $b) = @_; 
  39.     return undef    if (!defined($a) and !defined($b));
  40.     return $a       if (!defined($b));
  41.     return $b       if (!defined($a));
  42.     ( $a <= $b ) ? $a : $b; 
  43. }
  44.  
  45. sub _round { sprintf "%.0f", shift }
  46.  
  47. sub version { $GD::Graph::utils::VERSION }
  48.  
  49. "Just another true value";
  50.