view release on metacpan or  search on metacpan

t/02_bar.t  view on Meta::CPAN

            'min' => 'a',
        },
        'bg_colour' => 'f0f8ff',
    );
    $chart->x_axis->labels->rotate(45);
    $chart->x_axis->labels->colour('#555555');
    
    my $bar = Chart::OFC2::Bar->new(
        'values' => [ map { (12 - $_).q() } 0..5 ],
        'colour' => '#40FF0D',
        'text'   => 'some legend',
    );
    $bar->values();
    $chart->add_element($bar);

    eq_or_diff(
        $bar->TO_JSON,
        {
            'colour' => '#40FF0D',
            'type'   => 'bar',
            'values' => [ 12,11,10,9,8,7 ],
            'text'   => 'some legend'
        },
        'bar element TO_JSON'
    );

    my $bar2 = Chart::OFC2::Bar::Filled->new(
        'colour' => '#186000',
        'text'   => 'some other legend',
    );
    $bar2->values([ 10..15 ]);
    $chart->add_element($bar2);
    
    my $chart_data = $chart->render_chart_data();
    ok($chart_data, 'generate bar chart data');
    
    # write output to file
    my $output_filename = File::Spec->catfile($BASE_PATH, 'bar-data.json');
    ok(write_file($output_filename, $chart_data), 'saving bar-chart JSON to "'.$output_filename.'"');