File Coverage

blib/lib/Imager/Graph/Area.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1             package Imager::Graph::Area;
2              
3             =head1 NAME
4              
5             Imager::Graph::Area - a tool for drawing area charts on Imager images
6              
7             =head1 SYNOPSIS
8              
9             use Imager::Graph::Area;
10             use Imager::Font;
11              
12             my $font = Imager::Font->new(file => '/path/to/font.ttf') || die "Error: $!";
13              
14             my $graph = Imager::Graph::Area->new();
15             $graph->set_image_width(900);
16             $graph->set_image_height(600);
17             $graph->set_font($font);
18             $graph->use_automatic_axis();
19             $graph->show_legend();
20              
21             my @data = (1, 2, 3, 5, 7, 11);
22             my @labels = qw(one two three five seven eleven);
23              
24             $graph->add_data_series(\@data, 'Primes');
25             $graph->set_labels(\@labels);
26              
27             my $img = $graph->draw() || die $graph->error;
28              
29             $img->write(file => 'area.png');
30              
31              
32              
33             =cut
34              
35 1     1   402 use strict;
  1         1  
  1         26  
36 1     1   2 use vars qw(@ISA);
  1         1  
  1         53  
37 1     1   423 use Imager::Graph::Vertical;
  1         2  
  1         62  
38             @ISA = qw(Imager::Graph::Vertical);
39              
40             sub _get_default_series_type {
41 3     3   29 return 'area';
42             }
43              
44             1;
45