#!/usr/bin/env perl
package AllPod;
use strict;
use warnings;

use Moose;
with 'MooseX::Getopt::Usage';
with 'MooseX::Getopt::Usage::Role::Man';

has doom => ( is => 'ro', isa => 'Int' );

sub doomify {}

=pod

=head1 NAME

allpod - All pod sections all ready there. 

=head1 SYNOPSIS

 %c [OPTIONS] [ALIENS]

=head1 OPTIONS

Some extra options text. Put above DESCRIPTION, should stay there.

=head1 ATTRIBUTES

=head2 doom

Sets the level of doom!

=head1 DESCRIPTION

B<This program> will read the given input ALIENS and do something
useful with the contents thereof.

=head1 METHODS

=head2 doomify

Doom! Doom! Doom!

=head1 AUTHOR

Invader Larb 

=cut

1;

package main;
AllPod->new_with_options;