sourcecode
Ovid
<code>
################################
package Code::Police;
################################
$Code::Police::VERSION = 2.1828;
# Last updated August 1, 2001
#
# Module: Code::Police
# Author: Ovid
# Date Created: August 1, 2001
# Purpose: This is the Code::Police module. Provide this module to programmers who fail
# to use strict and most of their coding errors will be instantly eliminated.
# --------------- Maintenance log ------------------------
# Date:
# Programmer:
# Action:
# --------------------------------------------------------
INIT{if(!exists$INC{'strict.pm'}){unlink((caller)[1])}}
"Ovid";
__END__
=head1 NAME
Code::Police - Enforce rigorous coding standards
=head1 SYNOPSIS
#!/usr/bin/perl
use Code::Police;
=head1 DESCRIPTION
This is the Code::Police module. Provide this module to programmers who fail
to use strict and most of their coding errors will be instantly eliminated.
=head1 COPYRIGHT
Copyright (c) 2001 Ovid. All rights reserved.
This program is free software; you may redistribute it and/or modify it under
the same terms as Perl itself
Ovid assumes absolutely no responsibility for any of this dreck. If you use this,
you will rot in the 8th circle of Hell for all of eternity.
=head1 AUTHOR
Ovid <dev@null.com>
Address bug reports and comments to dev@null.com. When sending bug reports,
please provide the version of Code::Police, the version of Perl, and the version
of the operating system you are using.
=head1 MISCELLANEOUS
Why are you reading this? No one actually B<reads> POD. You must be a loser. If you
have to rely on the documentation to figure out what something does, you're probably one
of those wimps who uses strict. Screw documentation. Do what you always do and ask someone
else how it works.
This was inspired by an offhand joke by merlyn L<merlyn@stonehenge.com> at a Damian
Conway talk. He is, however, not responsible for this and shouldn't be held liable if
you're a bonehead.
=head1 BUGS
August 1, 2001: Currently, this program will not work if any other module is loaded that
uses strict. I could have tried to code around that by using a bunch of evals or something,
but so what? It's a joke.
=cut
</code>
<p>This is the Code::Police module. Provide this module to programmers who fail to use strict and most of their coding errors will be instantly eliminated.</p>
Utility Scripts
[Ovid]