Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Data.pm	16.79 KB	-rw-r--r--
Error.pm	8.96 KB	-rw-r--r--
FAQ.pod	5.77 KB	-rw-r--r--
area.pm	2.91 KB	-rw-r--r--
axestype.pm	60.28 KB	-rw-r--r--
axestype3d.pm	22.78 KB	-rw-r--r--
bars.pm	12.3 KB	-rw-r--r--
bars3d.pm	9.77 KB	-rw-r--r--
colour.pm	7.57 KB	-rw-r--r--
cylinder.pm	4.2 KB	-rw-r--r--
cylinder3d.pm	919 B	-rw-r--r--
hbars.pm	1.59 KB	-rw-r--r--
lines.pm	4.34 KB	-rw-r--r--
lines3d.pm	16.53 KB	-rw-r--r--
linespoints.pm	1.19 KB	-rw-r--r--
mixed.pm	2.91 KB	-rw-r--r--
pie.pm	12.58 KB	-rw-r--r--
pie3d.pm	8.03 KB	-rw-r--r--
points.pm	4.99 KB	-rw-r--r--
utils.pm	1.22 KB	-rw-r--r--

Code Editor : utils.pm

#==========================================================================
#              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";

${this.title}

Code Editor : utils.pm