Here goes. I'm doing Romans 1. 
use Prophet; use Believer;
my $self = new Believer;
name $self Paul;
serve $self Jesus;
call $self sub { 'apostle' };
promise Prophets Holy_Scriptures => $God{gospel}, Topic => $God{son}
set_apart $self { $God{gospel} }
$God{son} = {parent => 'David', declarer => $God{spirit}, purpose => {
+title => 'son', by_means_of => 'resurrection'};
receive $self grace|apostleship for ($God{son});
$self->grace(purpose => Gentiles->call, end_result => Faith->obedience
+);
my $listeners = $God{son}->who_belongs;

for (Romans->loved_by_god()->called_as('saints')) {
 give $_ for (%God{Grace,Peace}, $God{son});
}

thank $God $_ for $listeners->faith;
for ($God) {
 $self->heart()->serve(method => \&Gospel->Preach);
 witness $God $self, reason => $self->prayers()->remember();
 pray $self time => scalar localtime, by => $God{will}, todo => $self-
+>allow(\&{$self->travel})->walk(Rome)
}

for ($self) {
 $self->wants(action => \&CORE::sysread, inorderto => \&{$self->give},
+ param => 'spiritual');
 wants $self \&encourage_faith, $listeners;
 wants $listeners \&encourage_faith, $self;
}

carp "Sorry I couldn't come: $!" for $self->trips;
wants $self \&teach_gentiles, notfrom => 'rome';

obligated $self $_, sub { goto ROME } for (Greeks, Others, Wise, Fooli
+sh);

$self->shame->{gospel} = 0;
{ package Gospel; push @ISA, eval { salvation for (Jew, Gentile); }}
Gospel::reveal $God{righteousness};
live $righteous $faith;

for ($God{wrath}) {
 print MEN $God, %God{power, nature};
 reveal $_ from => 'heaven' because => \%Men{godless, wicked};
 delete for %$Men{excuse};
 Men::know($God);
 Men::give_glory(Men);
 Men::give_thanks(Men);
 Men::think('futile');
 Men::darken('hearts');
 Men::claim(wisdom => 'idols', represent => [Men, Birds, Reptiles]);
 $God->give_over(Men, sin, sex => Men);
 Men::serve(Men);
 $God->give_over Men, sin (Men, Men);
 $God->give_over Men, sin (Men::women, Men::women);
 $God->punish for %Men::;
 Men::Forget($God, replacement => [qw/wickedness evil greed depravity 
+murder slander envy malice/]);
}

[download]

Replies are listed 'Best First'.
Re: Perl Bible
by MirelesJ (Initiate) on Mar 19, 2007 at 17:35 UTC 
    # Perl of great price. (Matt 13:45,46)
$priceKingdomOfHeaven = inf;

    [download]
[reply]
[d/l]
Re: Perl Bible
by papidave (Pilgrim) on Aug 13, 2007 at 17:07 UTC 
    
=head 1 John Chapter 1

Romans may be a bit heavy for a first translation; so I though I might
+ rewind to the gospels instead.

=cut

BEGIN {
   our *Word;
   @God = [ *Word, @God ];
   *Word = @God;

   *Word->create( glob qw( * ) );
   assert( $_->creator( *Word ) ) foreach glob qw( * );
   
   *Word->life and
      *Word->life->light(men);
   our $light->shine();
   ! $darkness->understood();   
}

$witness = *God->create( 'Man' );
$witness->name( 'John' );
$witness->testify( 'light' ) =>
  $_->believe() foreach ( glob( 'men' ));

not $witness->light(), $witness->speak( 'light' );
$light and push %world, map sub { light $_ } glob( 'men' );

$world{ *Word } and 
   (stat $world)[4] eq *Word and
   not $world->recognize( *Word );

splice( @{$people{His}}, $n, *Word ) and 
   not $people{His}->recognize( *Word );

foreach( @{ glob( 'people' ) } )
{
   if ( $_->received(*Word) and $_->believed(Word::Name) )
   {
      push @{$God->children}, $_;
      $_->child('natural', 0 );
      $_->child('human decision', 0 );
      $_->child('husband\'s will', 0 );
      $_->child('God\'s will', 1 );
   }
}

    [download]
[reply]
[d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Perl Poetry