view release on metacpan or  search on metacpan

README  view on Meta::CPAN

NAME
    Acme::Buffy - An encoding scheme for Buffy the Vampire Slayer fans

SYNOPSIS
      use Acme::Buffy;

      print "Hello world";

DESCRIPTION
    The first time you run a program under "use Acme::Buffy", the module
    removes most of the unsightly characters from your source file. The code
    continues to work exactly as it did before, but now it looks like this:

      use Acme::Buffy;
      BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy     buFFY BufFy     BufFY   bUFfy BuFFY buffy       bufFy bUffy bUffY BuFfy BuffY   bUFfy BUfFY BUFFy       Buffy bUffY     
      BuFFY BUFFy   BufFy BUFfy BUfFY buFfy BuffY   BuFfy   BUfFY bUffy     buFFy   BUffy   bUffy 

lib/Acme/Buffy.pm  view on Meta::CPAN

sub _evil {
    return $_[0] =~ /\S/;
}

sub _punch {
    return $_[0] =~ /^$horns/;
}

sub import {
    open 0 or print "Can't rebuffy '$0'\n" and exit;
    ( my $demon = join "", <0> ) =~ s/.*^\s*use\s+Acme::Buffy\s*;\n//sm;
    local $SIG{__WARN__} = \&evil;
    do { eval _unslay $demon; exit }
        unless _evil $demon and not _punch $demon;
    open my $fh, ">$0" or print "Cannot buffy '$0'\n" and exit;
    print $fh "use Acme::Buffy;\n", _slay $demon and exit;
    print "use Acme::Buffy;\n", _slay $demon and exit;
    return;
}
"Grrr, arrrgh";

__END__

=head1 NAME

Acme::Buffy - An encoding scheme for Buffy the Vampire Slayer fans

=head1 SYNOPSIS

  use Acme::Buffy;

  print "Hello world";

=head1 DESCRIPTION

The first time you run a program under C<use Acme::Buffy>, the module
removes most of the unsightly characters from your source file.  The
code continues to work exactly as it did before, but now it looks like
this:

  use Acme::Buffy;
  BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy	buFFY BufFy	BufFY	bUFfy BuFFY buffy	bufFy bUffy bUffY BuFfy	BuffY	bUFfy BUfFY BUFFy	Buffy bUffY