{%-
    USE p = PodGenerated;
    USE s = DataSemantic;
    base = s.base_class_from_companion_class(p.package);
    semantic_base = base.replace('^Class::Value::', 'Data::Semantic::');
-%}

=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(semantic_base) %}>.

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% p.write_inheritance %}

{% PROCESS standard_pod %}

=cut