1 files changed, 49 insertions, 0 deletions
diff --git a/lib/GD/Graph/utils.pm b/lib/GD/Graph/utils.pm
new file mode 100644
index 0000000..b24fc26
--- /dev/null
+++ b/lib/GD/Graph/utils.pm
@@ -0,0 +1,49 @@
+#==========================================================================
+#              Copyright (c) 1995-1999 Martien Verbruggen
+#--------------------------------------------------------------------------
+#
+#   Name:
+#       GD::Graph::utils.pm
+#
+#   Description:
+#       Package of general utilities.
+#
+# $Id: utils.pm,v 1.7 2003/02/10 22:12:41 mgjv 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";