The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Chart::Clicker::Decoration::Legend::Tabular

DESCRIPTION

Chart::Clicker::Decoration::Legend::Tabular draws a legend on a Chart with tabular data display.

SYNOPSIS

The Tabular legend is a legend with a few extra attributes that allow you to pass it data to display. The attributes are c<header> and c<data>. The header (optional) allows you to specify the strings to display at the top of the table and the data attribute allows you to pass in arrayrefs of strings for display aside each of the series.

Note: The first string in the header arrayref should be the header for the column above the name of the series. This code does not do anything to verify that you've given the appropriate counts of data. It is expected that you will provide data with one arrayref for every series, each containing n elements. Having that, header will expect n + 1 elements with one for the series name and the remaining (n) matching the number of elements in each of data's arrayrefs.

    $cc->legend(Chart::Clicker::Decoration::Legend::Tabular->new(
        header => [ qw(Name Min Max) ],
        data => [
            [ min(@{ $series1->values }), max(@{ $series1->values }) ],
            [ min(@{ $series2->values }), max(@{ $series2->values }) ]
        ]
    ));

ATTRIBUTES

border

Set/Get this Legend's border.

data

Set/Get the data for this legend. Expects an arrayref of arrayrefs, with one inner arrayref for every series charted.

draw

Draw this Legend

font

Set/Get the font used for this legend's items.

Set/Get the header data used for this legend. Expects an arrayref of Strings.

insets

Set/Get this Legend's insets.

item_padding

Set/Get the padding for this legend's items.

METHODS

has_header

Predicate returning true of this legend has a header, else 1.

prepare

Prepare this Legend by creating the TextBoxes based on the datasets provided and testing the lengths of the series names.

AUTHOR

Cory G Watson <gphat@cpan.org>

SEE ALSO

perl(1)

LICENSE

You can redistribute and/or modify this code under the same terms as Perl itself.