use Perl

One of the fundamental problems in code generation systems is that people that use them are looking for the quickest, fastest way to get something done.

Therefore, by mere virtue of using a code generation system, they are disinclined to do things like replace the boilerplate abstracts and such.

I've needed a module starter for myself for a while, and Module::Starter seemed a bit like overkill, since my modules only have a Makefile.PL and Changes files, 2 test scripts and the module itself (with the automation doing the rest of it at release time).

While writing it, I thought I might as well implement certain functionality to make sure I always replace the boilerplate.

So here's what a typical module created by ADAMK::Starter (not going to CPAN) looks like :)

package DBIx::SQLiteSequence;

=pod

=head1 NAME

DBIx::SQLiteSequence - The author of the module is an idiot

=head1 SYNOPSIS

    The author is stupid and forgot to write the synopsis

=head1 DESCRIPTION

The author is a self-professed buffoon who forgot to write the description

=head1 METHODS

=cut

use 5.005;
use strict;

use vars qw{$VERSION};
BEGIN {
                $VERSION = '0.01';
}

#####################################################################
# Constructor and Accessors

=pod

=head2 new

The author is a mindless drone that forgot to write the docs for the new method

=cut

sub new {
                my $class = shift;

                # Create the object
                my $self = bless { @_ }, $class;

                # Check params
                die "CODE INCOMPLETE";

                return $self;
}

#####################################################################
# Main Methods

1;

=pod

=head1 SUPPORT

No support is available for this module, because the author is an
ugly troll that didn't bother to tell you what support is available.

=head1 AUTHOR

Adam Kennedy Eadamk@cpan.orgE

=head1 COPYRIGHT

Copyright 2007 Adam Kennedy <--- boring

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

The full text of the license can be found in the
LICENSE file included with this module.

=cut