view release on metacpan or  search on metacpan

lib/Chart/OFC2/Pie.pm  view on Meta::CPAN

=head1 NAME

Chart::OFC2::Pie - OFC2 Pie chart

=head1 SYNOPSIS

    use Chart::OFC2::Pie;
    
    my $pie = Chart::OFC2::Pie->new(
        tip          => '#val# of #total#<br>#percent# of 100%',
    );
    $pie->values([ (1 .. 5) ]);
    $pie->values->labels([qw( IE Firefox Opera Wii Other)]);
    $pie->values->colours([ '#d01f3c', '#356aa0', '#C79810', '#73880A', '#D15600' ]);

    my $pie2 = Chart::OFC2::Pie->new(
        values       => [
            { 'value' => 1, 'label' => 'IE', },
            { 'value' => 2, 'label' => 'Firefox', },
        ],

t/03_pie.t  view on Meta::CPAN

}

exit main();

sub main {
    my $chart = Chart::OFC2->new(
        title        => 'Pie Chart',
    );
    
    my $pie = Chart::OFC2::Pie->new(
        tip          => '#val# of #total#<br>#percent# of 100%',
    );
    $pie->values([ (1 .. 5) ]);
    $pie->values->labels([qw( IE Firefox Opera Wii Other)]);
    $pie->values->colours([ '#d01f3c', '#356aa0', '#C79810', '#73880A', '#D15600' ]);

    eq_or_diff(
        $pie->TO_JSON(),
        {
            'tip' => '#val# of #total#<br>#percent# of 100%',
            'colours' => [
                '#d01f3c',
                '#356aa0',
                '#C79810',
                '#73880A',
                '#D15600'
            ],
            'type' => 'pie',
            'values' => bless( {
               'colours' => [