File Coverage

blib/lib/GD/Graph/linespoints.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             #==========================================================================
2             # Copyright (c) 1995-1998 Martien Verbruggen
3             #--------------------------------------------------------------------------
4             #
5             # Name:
6             # GD::Graph::linespoints.pm
7             #
8             # $Id: linespoints.pm,v 1.8 2005/12/14 04:13:08 ben Exp $
9             #
10             #==========================================================================
11              
12             package GD::Graph::linespoints;
13            
14             ($GD::Graph::linespoints::VERSION) = '$Revision: 1.8 $' =~ /\s([\d.]+)/;
15              
16 1     1   4 use strict;
  1         1  
  1         27  
17            
18 1     1   39 use GD::Graph::axestype;
  0            
  0            
19             use GD::Graph::lines;
20             use GD::Graph::points;
21            
22             # Even though multiple inheritance is not really a good idea,
23             # since lines and points have the same parent class, I will do it here,
24             # because I need the functionality of the markers and the line types
25              
26             @GD::Graph::linespoints::ISA = qw(GD::Graph::lines GD::Graph::points);
27              
28             # PRIVATE
29              
30             sub draw_data_set
31             {
32             my $self = shift;
33              
34             $self->GD::Graph::points::draw_data_set(@_) or return;
35             $self->GD::Graph::lines::draw_data_set(@_);
36             }
37              
38             sub draw_legend_marker
39             {
40             my $self = shift;
41              
42             $self->GD::Graph::points::draw_legend_marker(@_);
43             $self->GD::Graph::lines::draw_legend_marker(@_);
44             }
45              
46             "Just another true value";