Select Code to Download

Select or download this

$ pwd 
/home/bob/Documents/meditations/castaways/translate/blib
$ ls
arch  bin  lib  man1  man3  script
$

Select or download this

my %WriteMakefileArgs = (
    NAME             => 'translate',
    AUTHOR           => q{professor <prof@island.coconut>},
...
    dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean => { FILES => 'translate-*' },
);

Select or download this

$ pwd
/home/bob/Documents/meditations/castaways/translate/lib
...
blib     ignore.txt  Makefile     MANIFEST     MYMETA.yml  README  xt
Changes  lib         Makefile.PL  MYMETA.json  pm_to_blib  t
$

Select or download this

package translate;

use 5.006;
...
}

1;    # End of translate

Select or download this

#!/usr/bin/perl -w
use 5.011;

...
  print $trans_rh->{translatedText}, "\n";
}

Select or download this

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT =
  qw(  get_config get_trans get_from_lang get_to_lang reverse_trans);