Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Perl Bible

by papidave (Pilgrim)
on Aug 13, 2007 at 17:07 UTC ( #632271=note: print w/replies, xml ) Need Help??


in reply to Perl Bible

=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 ); } }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://632271]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2020-01-25 02:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?