# words and concept by alakaboo
# Tied OO implementation of shifting themes
# by Osfameron (hakim@earthling.net)

our @themes = qw( 
   fuel fire 
    flame hot 
     air water 
    earth spirit 
   desire love 
    happiness peace
);


tie $heart, 'Theme', \@themes;
tie $soul, 'Theme', \@themes;

print <<POEM;
from $heart comes $soul
thus the $heart is truly $soul              
for without $heart one cannot have $soul    
and without $soul one returns to the $heart 
one $soul, one $heart                       
no $heart, no $soul                         
POEM

package Theme;
sub TIESCALAR { bless @_[1], @_[0] };
sub FETCH { shift @{@_[0]} };