Acme::BottomsUp - Write individual statements backwards
This is a fun mostly proof-of-concept module that I'm looking for comments on, especially alternative ways to code it and sample usage /possibilities (practical or otherwise)... It uses Filter::Simple and PPI ; source code below.
Update: 2006-08-15 uploaded to cpan as Acme::BottomsUp

---

SYNOPSIS

        my @arr = (1..10);

        use Acme::BottomsUp;
        @arr                  # first, start w/ numbers
          grep { $_ % 2 }     # then get the odd ones
          map { $_**3 }       # then cube each one
          join ":",           # and glue together
          print               # lastly, display result
        ;
        print "ok";
        no Acme::BottomsUp;
[download]

DESCRIPTION
This module allows you to write multi-line perl statements in reverse order so that it "reads better". For example, normally one would write the code from the SYNOPSIS as:

        my @arr = (1..10);

        print                 # lastly, display result
             join ":",        # and glue together
             map { $_**3 }    # then cube each one
             grep { $_ % 2 }  # then get the odd ones
             @arr             # first, start with numbers
        ;
[download]

---

The full source:

package Acme::BottomsUp;
use warnings;
use strict;
our $VERSION = '0.01';
use Filter::Simple;
use PPI;
FILTER {
  my $doc = PPI::Document->new(\$_);
  $_ = join '',
        map {
          my $s = $_->content;
          $s =~ s/;\s*$//s;
          join("\n",
              reverse
              split "\n",
                $s
          ) . "\n;"
        }
        @{ $doc->find('PPI::Statement') };
};
1;
[download]

Considered (Marza): Split off the "offensive" talk to it's own thread or delete the posts as they have nothing to do with the topic
Unconsidered (holli): enough keep votes (Keep: 13, Edit: 4, Reap: 1)