view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Acme::Opish.

0.01  Mon Jun 23 16:16:59 2003
    - original version; created by h2xs 1.22 with options
        -X -A -n Acme::Opish

0.01.1  Thu Jun 26 2003
    - Fixed documentation.

0.02  Thu Jun 26 2003
    - Don't prefix non-vowel y's at the beginning of a word.
    - Fixed the path of the opish result test file in eg/.
    - Removed the opish result test file from eg/.

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

                    [aiouy]         # with any non-e vowel following
                    \b              # that terminates at a word boundry.
                    |               # or
                    [aeiouy]+       # consecutive vowels
                    [aeiouy]        # with any vowel following
                    \b              # that terminates at a word boundry.
                )                   # ...end capture.
            /$prefix$1/gisx;        # Add 'op' to what we captured.
        }  # }}}

        # The original word was capitalized.
        $_ = ucfirst if $is_capped;
    }

    # Return the words as a single space separated string.
    # XXX Again, oof.  We don't preserve whitespace.  : \
    return join ' ', @words;
}

1;
__END__