package Pod::Weaver::Section::BugsRT;
$Pod::Weaver::Section::BugsRT::VERSION = '0.52';

# ABSTRACT: Add a BUGS pod section for

use Moose;

with 'Pod::Weaver::Role::Section';

use Moose::Autobox;

sub weave_section {
    my ($self, $document, $input) = @_;

    my $zilla = $input->{zilla} or return;
    my $name = $zilla->name;

    my $bugtracker =
        sprintf '', $name;

    # I prefer all lower case emails.
    my $email = "bug-".lc($name).'';

    my $text =
        "Please report any bugs or feature requests to $email ".
        "or through the web interface at:\n".
        " $bugtracker";

            command => 'head1',
            content => 'BUGS',
            children => [
                Pod::Elemental::Element::Pod5::Ordinary->new({content => $text}),

no Moose;


=head1 NAME

Pod::Weaver::Section::BugsRT - Add a BUGS pod section for

=head1 VERSION

version 0.52


In C<weaver.ini>:



This section plugin will produce a hunk of Pod that describes how to report bugs to

=head1 METHODS

=head2 weave_section

adds the BUGS section.

=head1 AUTHOR

  Michael Schout <>


This software is copyright (c) 2010 by Michael Schout.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=head1 SOURCE

You can contribute or fork this project via github:

 git clone git://

=head1 BUGS

Please report any bugs or feature requests to or through the web interface at: