File Coverage

samples/sample16.pl

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

use strict;
use GD::Graph::bars;
use GD::Graph::hbars;
require 'save.pl';

my @data = (
    [ qw( 1st 2nd 3rd 4th 5th 6th 7th 8th 9th ) ],
    [    5,   12,undef,   33,   19,    8,    5,    15,    21],
    [   -6,   -5,   -9,   -8,  -11, -9.3,undef,    -9,   -12]
);

my $refit = 4;

sub y_format
{
    my $value = shift;

    if ($value < 0)
    {
	return sprintf('-$%3d', abs($value) * $refit);
    }
    return sprintf('$%3d', $value * $refit);
}

my @names = qw/sample16 sample16-h/;

for my $my_graph (GD::Graph::bars->new, GD::Graph::hbars->new)
{
    my $name = shift @names;
    print STDERR "Processing $name\n";

    $my_graph->set(
	x_label             => 'Day',
	y_label             => 'AUD',
	title               => 'Credits and Debits',
	y_max_value         => 35,
	y_min_value         => -15,
	y_tick_number       => 10,
	y_label_skip        => 2,
	overwrite           => 1,
	dclrs               => [ qw( green lred ) ],
	axislabelclr        => 'black',
	legend_placement    => 'RB',
	zero_axis_only      => 0,
	y_number_format     => \&y_format,
	x_label_position    => 1/2,

	transparent         => 0,
    );

    $my_graph->set_legend( 'credits', 'debets' );
    $my_graph->plot(\@data);
    save_chart($my_graph, $name);
}

1;