Acme::Lingua::Pirate::Perl - be writin' thy Perl like a swarthy sea-dog


Acme-Lingua-Pirate-Perl documentation Contained in the Acme-Lingua-Pirate-Perl distribution.

Index


Code Index:

NAME

Top

Acme::Lingua::Pirate::Perl - be writin' thy Perl like a swarthy sea-dog

SYNOPSIS

Top

  use Acme::Lingua::Pirate::Perl;

Then use the following bits o' argot to pepper up yer Perl:

* be for eq, equal for ==
* seize or steal or plunder for shift
* thrust for push, hurl for pop
* keelhaul or scuttle or sink or capsize for die - add " her" if you like
* curse for warn
* the booty or the treasure (or a treasure) for @_
* the gold or the doubloons for $_
* Davy Jones' Locker for $@, a whale (or the whale) for $! and a hornpipe or (the hornpipe) for $%
* the rope's end for $/
* sound off, yell or cry for print
* vast for uc, puny for lc
* squint at for study
* cast off for return, sail off or weigh anchor for exit
* bilge: for __DATA__ and poop deck: for __END__

You also have a wide range of traditional pirate vocabulary to scatter through your code and make it all the more piratical, although they won't cause anything to actually happen, except perhaps terrifying any landlubbers who happen to read your code.

* arr (or arrr, arrrr...)
* yar (or yarr, yarrr...)
* avast
* curse ye
* curse thy deadlights
* matey
* scallywag(s)
* shiver me timbers
* splice the mainbrace
* sprog(s)
* swab(s)
* ye scurvy dog(s)
* yo ho (ho) (optionally hyphenated)

These are case-insensitive and can be followed by a non-word character (i.e., space or punctuation), allowing you to mix and match at will. Examples:

    AVAST! YE SCURVY DOG!

    Arrrrrr. Shiver me timbers matey.

    Yar! Curse thy deadlights, sprog!

    yo-ho-ho, scallywags

More handy piratical vocab can be found at: http://www.puzzlepirates.com/Vocabulary.xhtml

WHY?

Top

Take heed! September 19th be International Talk Like A Pirate Day! An' if thy code ain't shipshape, ye'll be walkin' the plank!

http://www.yarr.org.uk/

AUTHOR

Top

Earle Martin <hex [at] cpan [dot] org>, but really Simon Wistow <simon [at] twoshortplanks [dot] com>, because this is a straight rip of his Acme::Lingua::Strine::Perl!

BLAME

Top

It's all london.pm's fault, of course.

DEDICATION

Top

This module is dedicated to Captain Jack Sparrow, the best pirate I have ever seen.

SEE ALSO

Top

Filter::Simple, Acme::Scurvy::Whoreson::BilgeRat


Acme-Lingua-Pirate-Perl documentation Contained in the Acme-Lingua-Pirate-Perl distribution.

package Acme::Lingua::Pirate::Perl;

require 5.005_62;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our $VERSION = '0.13';

use Filter::Simple sub  {

  s{(\W)be}{$1eq}g;
  s{(\W)equal}{$1==}g;

  s{(\W)seize}{$1shift}g;
  s{(\W)steal}{$1shift}g;
  s{(\W)plunder}{$1shift}g;
  s{(\W)thrust}{$1push}g;
  s{(\W)hurl}{$1pop}g;

  s{(\W)moor}{$1wait}g;
  
  s{(\W)keelhaul(?: her)?}{$1die}g;
  s{(\W)scuttle(?: her)?}{$1die}g;
  s{(\W)sink(?: her)?}{$1die}g;
  s{(\W)capsize(?: her)?}{$1die}g;

  s{(\W)curse}{$1warn}g;

  s{(\W)the booty}{$1\@_}g;
  s{(\W)(?:a|the) treasure}{$1\@_}g;
  s{(\W)the gold}{$1\$_}g;
  s{(\W)the doubloons}{$1\$_}g;

  s{(\W)the rope's end}{$1\$/}g;
  s{(\W)Davy Jones' Locker}{$1\$\@}g;
  s{(\W)(?:a|the) whale}{$1\$!}g;
  s{(\W)(?:a|the) hornpipe}{$1\$%}g;

  s{(\W)sound off}{$1print}g;
  s{(\W)yell}{$1print}g;
  s{(\W)cry}{$1print}g;

  s{(\W)vast}{$1uc}g;
  s{(\W)puny}{$1lc}g;

  s{(\W)squint at}{$1study}g;

  s{(\W)cast off}{$1return}g;

  s{(\W)sail off}{$1exit}g;
  s{(\W)weigh anchor}{$1exit}g;

  s{(\W)bilge:}{$1__DATA__g};
  s{(\W)poop deck:}{$1__END__}g;
  
  # random interjections are case-insensitive...
  
  s{(\W)ar[r]+(?:\W)}{$1}gi;
  s{(\W)ya[r]+(?:\W)}{$1}gi;
  s{(\W)rar[r]*(?:\W)}{$1}gi; # Cap'n Gellyfish of the good ship Fabulous

  s{(\W)avast(?:\W)}{$1}gi;
  s{(\W)bucko(?:\W)}{$1}gi;
  s{(\W)curse ye(?:\W)}{$1}gi;
  s{(\W)curse thy deadlights(?:\W)}{$1}gi;
  s{(\W)gangway(?:\W)}{$1}gi;
  s{(\W)matey(?:\W)}{$1}gi;
  s{(\W)me hearties(?:\W)}{$1}gi;
  s{(\W)scallywag[s]?(?:\W)}{$1}gi;
  s{(\W)shiver me timbers(?:\W)}{$1}gi;
  s{(\W)splice the mainbrace(?:\W)}{$1}gi;
  s{(\W)sprog[s]?(?:\W)}{$1}gi;
  s{(\W)swab[s]?(?:\W)}{$1}gi;
  s{(\W)ye scurvy dog[s]?(?:\W)}{$1}gi;
  s{(\W)yo[\s-]ho(?:[\s-]ho)?(?:\W)}{$1}gi;
  
};



1;
__END__