File Coverage

blib/lib/Chart/Graph.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             ## Graph.pm is a graphing package that supports on-the-fly graphing
2             ## from the gnuplot, XRT, and Xmgrace graphing packages.
3             ##
4             ## $Id: Graph.pm,v 1.48 2006/06/07 21:09:32 emile Exp $ $Name: $
5             ##
6             ## This software product is developed by Michael Young and David Moore,
7             ## and copyrighted(C) 1998 by the University of California, San Diego
8             ## (UCSD), with all rights reserved. UCSD administers the CAIDA grant,
9             ## NCR-9711092, under which part of this code was developed.
10             ##
11             ## There is no charge for this software. You can redistribute it and/or
12             ## modify it under the terms of the GNU General Public License, v. 2 dated
13             ## June 1991 which is incorporated by reference herein. This software is
14             ## distributed WITHOUT ANY WARRANTY, IMPLIED OR EXPRESS, OF MERCHANTABILITY
15             ## OR FITNESS FOR A PARTICULAR PURPOSE or that the use of it will not
16             ## infringe on any third party's intellectual property rights.
17             ##
18             ## You should have received a copy of the GNU GPL along with this program.
19             ##
20             ## IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY
21             ## PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL
22             ## DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF THIS
23             ## SOFTWARE, EVEN IF THE UNIVERSITY OF CALIFORNIA HAS BEEN ADVISED OF
24             ## THE POSSIBILITY OF SUCH DAMAGE.
25             ##
26             ## THE SOFTWARE PROVIDED HEREIN IS ON AN "AS IS" BASIS, AND THE
27             ## UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO PROVIDE MAINTENANCE,
28             ## SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. THE UNIVERSITY
29             ## OF CALIFORNIA MAKES NO REPRESENTATIONS AND EXTENDS NO WARRANTIES
30             ## OF ANY KIND, EITHER IMPLIED OR EXPRESS, INCLUDING, BUT NOT LIMITED
31             ## TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A
32             ## PARTICULAR PURPOSE, OR THAT THE USE OF THE SOFTWARE WILL NOT INFRINGE
33             ## ANY PATENT, TRADEMARK OR OTHER RIGHTS.
34             ##
35             ##
36             ## Contact: graph-dev@caida.org
37             ##
38             ##
39             package Chart::Graph;
40 4     4   20276 use Exporter();
  4         9  
  4         464  
41              
42             $VERSION = '3.2';
43             @ISA = qw(Exporter);
44             @EXPORT = qw();
45             @EXPORT_OK = qw(&gnuplot &xrt3d &xrt2d &xmgrace);
46              
47             $cvs_Id = '$Id: Graph.pm,v 1.48 2006/06/07 21:09:32 emile Exp $';
48             $cvs_Author = '$Author: emile $';
49             $cvs_Name = '$Name: $';
50             $cvs_Revision = '$Revision: 1.48 $';
51              
52 4     4   2612 use Chart::Graph::Utils qw(:USER);
  4         11  
  4         5819  
53 4     4   4365 use Chart::Graph::Gnuplot qw(&gnuplot);
  4         16  
  4         851  
54 4     4   4083 use Chart::Graph::Xrt2d qw(&xrt2d);
  4         14  
  4         500  
55 4     4   28627 use Chart::Graph::Xrt3d qw(&xrt3d);
  4         16  
  4         515  
56 4     4   4806 use Chart::Graph::Xmgrace qw(&xmgrace);
  4         15  
  4         965  
57              
58             # Create "global" variables for use in various parts of Chart-Graph.
59             # use vars qw($debug $save_tmpfiles);
60              
61             # debug level, people can set this with $Chart::Graph::debug = 1; after the
62             # use Graph; to increase debug output.
63              
64             $debug = 0; # turn debug mesg off by default
65              
66             # set this with $Chart::Graph::save_tmpfiles = 1; after use Graph; to keep
67             # temporary (command) files used by the graphing packages around
68              
69             $save_tmpfiles = 0; # turn tmpfiles off by default
70              
71              
72             1;
73             __END__