package Chart::Clicker::Drawing::Point; use Moose; has 'x' => ( is => 'rw', isa => 'Num' ); has 'y' => ( is => 'rw', isa => 'Num' ); 1; __END__ =head1 NAME Chart::Clicker::Drawing::Point =head1 DESCRIPTION Chart::Clicker::Drawing::Point represents a location in (x, y) coordinate space. =head1 SYNOPSIS use Chart::Clicker::Drawing::Point; my $point = Chart::Clicker::Drawing::Point->new({ x => 2, y => 0 }); =head1 METHODS =head2 Constructor =over 4 =item new Creates a new Chart::Clicker::Drawing::Point. =back =head2 Class Methods =over 4 =item x Set/Get the X coordinate. =item y Set/Get the Y coordinate. =back =head1 AUTHOR Cory 'G' Watson =head1 SEE ALSO perl(1) =head1 LICENSE You can redistribute and/or modify this code under the same terms as Perl itself.