Chart::Clicker::Context - A rendering context: Axes, Markers and a Renderer

Chart-Clicker documentation Contained in the Chart-Clicker distribution.

Index

Code Index:

NAME

Top

Chart::Clicker::Context - A rendering context: Axes, Markers and a Renderer

DESCRIPTION

Top

Contexts represent the way a dataset should be charted. Multiple contexts allow a chart with multiple renderers and axes. See the CONTEXTS section in Chart::Clicker.

SYNOPSIS

Top

  my $context = Chart::Clicker::Context->new(
    name => 'Foo'
  );
  $clicker->add_to_contexts('foo', $context);

ATTRIBUTES

Top

domain_axis

Set/get this context's domain axis

name

Set/get this context's name

range_axis

Set/get this context's range axis

renderer

Set/get this context's renderer

METHODS

Top

new

Creates a new Context object.

share_axes_with ($other_context)

Sets this context's axes to those of the supplied context. This is a convenience method for quickly sharing axes. It's simple doing:

  $self->range_axis($other_context->range_axis);
  $self->domain_axis($other_context->domain_axis);

AUTHOR

Top

Cory G Watson <gphat@cpan.org>

SEE ALSO

Top

perl(1)

LICENSE

Top

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

Chart-Clicker documentation Contained in the Chart-Clicker distribution. 
package Chart::Clicker::Context;
use Moose;

use Chart::Clicker::Axis;
use Chart::Clicker::Renderer::Line;

has 'domain_axis' => (
    is => 'rw',
    isa => 'Chart::Clicker::Axis',
    default => sub {
        Chart::Clicker::Axis->new(
            orientation => 'horizontal',
            position    => 'bottom',
            format      => '%0.2f'
        )
    }
);
has 'markers' => (
    traits => [ 'Array' ],
    is => 'rw',
    isa => 'ArrayRef[Chart::Clicker::Data::Marker]',
    default => sub { [] },
    handles => {
        'marker_count' => 'count',
        'add_marker' => 'push'
    }
);
has 'name' => (
    is => 'rw',
    isa => 'Str',
    required => 1
);
has 'range_axis' => (
    is => 'rw',
    isa => 'Chart::Clicker::Axis',
    default => sub {
        Chart::Clicker::Axis->new(
            orientation => 'vertical',
            position    => 'left',
            format      => '%0.2f'
        )
    }
);
has 'renderer' => (
    is => 'rw',
    isa => 'Chart::Clicker::Renderer',
    default => sub { Chart::Clicker::Renderer::Line->new },
);

sub share_axes_with {
    my ($self, $other_context) = @_;

    $self->range_axis($other_context->range_axis);
    $self->domain_axis($other_context->domain_axis);
}

__PACKAGE__->meta->make_immutable;

no Moose;

1;
__END__