#========================================================================== # Copyright (c) 1995-1998 Martien Verbruggen #-------------------------------------------------------------------------- # # Name: # GIFgraph::utils.pm # # Description: # Package of general utilities. # # $Id: utils.pm,v 1.1.1.1 2002/02/26 10:16:37 oetiker Exp $ # #========================================================================== package GIFgraph::utils; use strict qw(vars subs refs); use vars qw( @EXPORT_OK %EXPORT_TAGS ); require Exporter; @GIFgraph::utils::ISA = qw( Exporter ); @EXPORT_OK = qw( _max _min _round ); %EXPORT_TAGS = ( all => [qw(_max _min _round)],); $GIFgraph::utils::prog_name = 'GIFgraph::utils.pm'; $GIFgraph::utils::prog_rcs_rev = '$Revision: 1.1.1.1 $'; $GIFgraph::utils::prog_version = ($GIFgraph::utils::prog_rcs_rev =~ /\s+(\d*\.\d*)/) ? $1 : "0.0"; { 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 { my($n) = shift; sprintf("%.0f", $n); } sub version { $GIFgraph::utils::prog_version; } $GIFgraph::utils::prog_name; } # End of package MVU