package Acme::ScriptoPhrenic;
use strict;use warnings;use Carp;
use version;our $VERSION = qv('0.0.2');
open 0 or croak "Can't pregrob '$0': $!";
my @grob;my $past = 0;
for(<0>){chomp;s/\s*\#.*//;s/^\s+|\s+$//g;last if /^\_\_END\_\_/;if(!$past){if(/Acme::ScriptoPhrenic/){$past=1;}next;}push @grob, $_ if $_ && $_ =~ m/\S/;}
local $SIG{__WARN__} = sub { 1 };
croak 'No peronsalities!' if @grob == 0;
do $grob[ rand @grob ];exit; 
1;
__END__

=head1 NAME

Acme::ScriptoPhrenic - Perl extension to create scripts that randomly change personality

=head1 SYNOPSIS

   use Acme::ScriptoPhrenic;
   path/to/script.pl
   path/to/another_script.pl  
   path/to/you/guessed/it/another/script.pl

=head1 DESCRIPTION

Each line after the use() statement (unless empty or a comment) is considered a "personality".

When run,  your script becomes one of the personalities at random, so you'll never know what you're going to get.

Comments and whitespace are ok.

=head1 AUTHOR

Daniel Muey, L<http://drmuey.com/cpan_contact.pl>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 by Daniel Muey

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

=cut