FM / Graph

/usr/share/perl5/vendor_perl/GD/Graph

Name	Size	Mode	Actions
area.pm	2980	0644	edit dl rm
axestype.pm	61723	0644	edit dl rm
bars.pm	12594	0644	edit dl rm
colour.pm	7756	0644	edit dl rm
Data.pm	17196	0644	edit dl rm
Error.pm	9177	0644	edit dl rm
FAQ.pod	5909	0644	edit dl rm
hbars.pm	1631	0644	edit dl rm
lines.pm	4446	0644	edit dl rm
linespoints.pm	1214	0644	edit dl rm
mixed.pm	2983	0644	edit dl rm
pie.pm	12884	0644	edit dl rm
points.pm	5106	0644	edit dl rm
utils.pm	1246	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/GD/Graph/utils.pm (1246B)

($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";

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