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

[download]

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

In reply to Variation on a Shifting themes by mwp

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.