package Chart::Clicker::Data::Marker;
{
$Chart::Clicker::Data::Marker::VERSION = '2.83';
}
use Moose;
# ABSTRACT: Highlight arbitrary value(s)
use Graphics::Color::RGB;
use Graphics::Primitive::Brush;
has 'brush' => (
is => 'rw',
isa => 'Graphics::Primitive::Brush',
default => sub {
Graphics::Primitive::Brush->new(width => 1);
}
);
has 'color' => (
is => 'rw',
isa => 'Graphics::Color',
default => sub {
Graphics::Color::RGB->new(
red => 0, green => 0, blue => 0, alpha => 1
);
}
);
has 'inside_color' => (
is => 'rw',
isa => 'Graphics::Color',
default => sub {
Graphics::Color::RGB->new(
red => 0, green => 0, blue => 0, alpha => 1
);
}
);
has 'key' => ( is => 'rw', isa => 'Num' );
has 'key2' => ( is => 'rw', isa => 'Num' );
has 'value' => ( is => 'rw', isa => 'Num' );
has 'value2' => ( is => 'rw', isa => 'Num' );
__PACKAGE__->meta->make_immutable;
no Moose;
1;
__END__
=pod
=head1 NAME
Chart::Clicker::Data::Marker - Highlight arbitrary value(s)
=head1 VERSION
version 2.83
=head1 SYNOPSIS
use Chart::Clicker::Data::Marker;
use Graphics::Color::RGB;
use Graphics::Primitive::Brush;
my $cc = Chart::Clicker->new;
my $mark = Chart::Clicker::Data::Marker->new(
color => Graphics::Color::RGB->new,
brush => Graphics::Primitive::Brush->new,
key => 12,
value => 123,
# Optionally
key2 => 13,
value => 146
);
my $ctx = $cc->get_context('default');
$ctx->add_marker($mark);
$cc->write_output('foo.png');
=head1 DESCRIPTION
Used to highlight a particular key, value or range of either.
=head2 value2
Set/Get the value2 for this marker. This represents a second point on the
range and is used to specify a range.
=head1 ATTRIBUTES
=head2 brush
Set/Get the L<brush|Graphics::Primitive::Brush> for this Marker.
=head2 color
Set/Get the L<color|Graphics::Primitive::Color> for this marker.
=head2 inside_color
Set/Get the inside L<color|Graphics::Primitive::Color>, which will be used if this range has two keys and
two values.
=head2 key
Set/Get the key for this marker. This represents a point on the domain.
=head2 key2
Set/Get the key2 for this marker. This represents a second point on the domain
and is used to specify a range.
=head2 value
Set/Get the value for this marker. This represents a point on the range.
=head1 AUTHOR
Cory G Watson <gphat@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Cold Hard Code, LLC.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut