The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Foo;
use Mouse;

has foo => (
    is => 'ro',
    isa => 'Str',
);

has bar => (
    is => 'ro',
    isa => 'Str',
);

sub baz { }
sub qux { }


no Mouse;
__PACKAGE__->meta->make_immutable;
__END__

=head1 NAME

Foo - bar

=head1 ATTRIBUTES

=over 4

=item foo

=back

=head1 METHODS

=over 4

=item baz

=back

=cut