#========================================================================== # Copyright (c) 1995-1999 Martien Verbruggen #-------------------------------------------------------------------------- # # Name: # GD::Graph::utils.pm # # Description: # Package of general utilities. # # $Id: utils.pm,v 1.7 2005/12/14 04:13:36 ben Exp $ # #========================================================================== package GD::Graph::utils; ($GD::Graph::utils::VERSION) = '$Revision: 1.7 $' =~ /\s([\d.]+)/; use strict; use vars qw( @EXPORT_OK %EXPORT_TAGS ); require Exporter; @GD::Graph::utils::ISA = qw( Exporter ); @EXPORT_OK = qw(_max _min _round); %EXPORT_TAGS = (all => [qw(_max _min _round)]); sub _max { my ($a, $b) = @_; return undef if (!defined($a) and !defined($b)); return $a if (!defined($b)); return $b if (!defined($a)); ( $a >= $b ) ? $a : $b; } sub _min { my ($a, $b) = @_; return undef if (!defined($a) and !defined($b)); return $a if (!defined($b)); return $b if (!defined($a)); ( $a <= $b ) ? $a : $b; } sub _round { sprintf "%.0f", shift } sub version { $GD::Graph::utils::VERSION } "Just another true value";