File: hbars_4.t

package info (click to toggle)
libchart-perl 2.4.10ds1-2
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 1,900 kB
  • ctags: 245
  • sloc: perl: 11,697; makefile: 6
file content (24 lines) | stat: -rw-r--r-- 518 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#!usr/bin/perl -w

use Chart::HorizontalBars;

print "1..1\n";

$g = Chart::HorizontalBars->new();
$g->add_dataset( 'Foo', 'bar', 'junk', 'ding', 'bat' );
$g->add_dataset( 4,     3,     4,      2,      8 );
$g->add_dataset( 2,     10,    3,      8,      3 );

%hash = (
    'title'        => 'Horizontal Bars Demo',
    'grid_lines'   => 'true',
    'x_label'      => 'x-axis',
    'y_label'      => 'y-axis',
    'include_zero' => 'true',
);

$g->set(%hash);
$g->png("samples/hbars_4.png");

print "ok 1\n";
exit(0);