view release on metacpan or  search on metacpan

t/lols.t  view on Meta::CPAN

      qr/IM IN $YOUR BED AN BREKKFAST, EATI?NG?$Z? $YOUR SAUSUJ$Z?/,
      "translated sausage phrase: $p" );

like( $p = translate( "free parties, events & more! what's happening?  who's going?" ),
      qr/FREE PARTIE$Z?, EVENT$Z? & MOAR! WH?UT$Z HAPPENI?NG?$Z?\? HOO$Z GOI?NG?$Z?\?/,
      "translated party ad text: $p" );

like( $p = translate( "I have a bucket." ),
      qr/I HA[SVZ] ?A? BUKK/, "translated bucket having phrase: $p" );

like( $p = translate( "Thank god I've updated this module." ),
      qr/(?:THN?X|(?:T|F)ANK) CEILING CAT IVE UPDATED THIS MODULE/,
      "translated diety phrase: $p" );