{%-
    USE p = PodGenerated;
    USE s = DataSemantic;
    base = s.base_class_from_companion_class(p.package);
-%}

=head1 NAME

{% p.package %} - Test companion class

=head1 SYNOPSIS

    perl t/01_companion_classes.t

=head1 DESCRIPTION

Test companion class for L<{% base %}>. Gets its
test data from L<{% s.testdata_class_from_base_class(base) %}>.

{% p.write_inheritance %}

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% PROCESS standard_pod %}

=cut

