Subclassing example (Cont’d)

• package POC::Report::Text; use base qw(Data::Report::Plugin::Text);

• sub _top_heading {

• my $self = shift;

• $self->_print("Title line 1\n");

• $self->_print("Title line 2\n");

• $self->_print("\n");

• }