* changed t31tic_color.t to check against different images based on the presence...

[imager-graph.git] / lib / Imager / Graph / Bar.pm

diff --git a/lib/Imager/Graph/Bar.pm b/lib/Imager/Graph/Bar.pm
index c47c656ef7f686f35579333f80654f350c5a12f5..7bcc39982eeda0a3713008f1e70d310258fe835d 100644 (file)
--- a/lib/Imager/Graph/Bar.pm
+++ b/lib/Imager/Graph/Bar.pm
@@ -6,7 +6,29 @@ package Imager::Graph::Bar;
 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 

-  This subclass is still in green development.
+  use Imager::Graph::Bar;
+  use Imager::Font;
+
+  my $font = Imager::Font->new(file => '/path/to/font.ttf') || die "Error: $!";
+
+  my $graph = Imager::Graph::Bar->new();
+  $graph->set_image_width(900);
+  $graph->set_image_height(600);
+  $graph->set_font($font);
+  $graph->use_automatic_axis();
+  $graph->show_legend();
+
+  my @data = (1, 2, 3, 5, 7, 11);
+  my @labels = qw(one two three five seven eleven);
+
+  $graph->add_data_series(\@data, 'Primes');
+  $graph->set_labels(\@labels);
+
+  my $img = $graph->draw() || die $graph->error;
+
+  $img->write(file => 'bars.png');
+
+

 
 =cut
 
 
 =cut