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