Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Variation on a Shifting themes

by mwp (Hermit)
on Aug 08, 2000 at 11:20 UTC ( [id://26745]=poem: print w/replies, xml ) Need Help??

The fading ties
or
Variation on a Shifting themes

#--------------------------# our @emotion = qw( love shame hurt blame ); our @devotion = qw( ropes pain locks chains ); tie $me, 'Up', \@emotion; tie $you, 'Down', \@devotion; tie $us, 'Together', [\($me, $you)]; package Together; sub TIESCALAR { our($heart,$soul) = @_; return bless $soul, $heart } sub FETCH { return ${ shift @{ +shift } } } package Up; sub TIESCALAR { our($heart,$emotion) = @_; return bless $emotion, $heart } sub FETCH { return shift @{ +shift } } package Down; sub TIESCALAR { our($soul,$devotion) = @_; return bless $devotion, $soul } sub FETCH { return shift @{ +shift } } #--------------------------# package main; print <<FADE; even $you are not able to keep $me away because for $us, there is but one cure it comes not from $me and not from $you but if $you fall away will I still be bound by $us? FADE

Author's Note:

There are three poems here. First, the actual Perl code itself is to be read as a poem. It integrates well with the bottom half, but there is a sharp transition in which the message takes a turn for the bitter. The second poem is the FADE print block, in which a negatively-connoted love letter is conveyed. The third poem takes the first two and outputs the sum, being a positively-connoted love letter. Originally, a fourth poem was woven around the first two via comment blocks. I removed it because three is enough!

This is a variation of the proposed changes (via an implementation of tie) to Shifting themes by osfameron. Otherwise, this entire work is original, albeit a tad redundant. :-)

Alakaboo

Replies are listed 'Best First'.
RE: Variation on a Shifting themes
by Adam (Vicar) on Aug 28, 2000 at 22:10 UTC
    This is really cool.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://26745]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others rifling through the Monastery: (2)
As of 2025-06-23 15:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.