1package Imager::Graph::StackedColumn; 2 3=head1 NAME 4 5 Imager::Graph::StackedColumn - a tool for drawing stacked column charts on Imager images 6 7=head1 SYNOPSIS 8 9 use Imager::Graph::StackedColumn; 10 use Imager::Font; 11 12 my $font = Imager::Font->new(file => '/path/to/font.ttf') || die "Error: $!"; 13 14 my $graph = Imager::Graph::StackedColumn->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 @data2 = (1, 1, 1, 2, 2, 2); 23 my @labels = qw(one two three five seven eleven); 24 25 $graph->add_data_series(\@data, 'Primes'); 26 $graph->add_data_series(\@data2, 'Numbers'); 27 $graph->set_labels(\@labels); 28 29 my $img = $graph->draw() || die $graph->error; 30 31 $img->write(file => 'columns.png'); 32 33=cut 34 35use strict; 36use vars qw(@ISA); 37use Imager::Graph::Vertical; 38@ISA = qw(Imager::Graph::Vertical); 39 40sub _get_default_series_type { 41 return 'stacked_column'; 42} 43 441; 45 46