package Chart::Plot::Annotated; use 5.006; use strict; use warnings; use Carp; our $VERSION = '0.01'; ################################################################## # define this class: use base 'Chart::Plot'; use Class::MethodMaker # the extra data well put into the Chart::Plot object object_list => [ Chart::Plot::Annotated::_DataPt => '_AnnoData' ], # formatting internals get_set => [ qw [ _anno_xOffset _anno_yOffset _anno_font _anno_color ] ], # error-reporting get_set => [ '_problem' ];