in reply to Mixing tied variables with goto label

Try this: 

sub FETCH     { 'END' }

[download]
This is kinda neat. :)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re^2: Mixing tied variables with goto label
by Limbic~Region (Chancellor) on Nov 16, 2005 at 00:07 UTC
    jeffa,
    Try this:

    Yeah, but there is nothing special about that behavior. goto $var treats $var as the label as I showed in my first example. What I am trying to do is a little misdirection. Imagine that I could make you forget that I had a tied variable and that storing a value didn't appear to do anything abnormal: 

    my $label = 'START';
goto $label;
START:
print "Hello, world\n";
END:
print "Goodbye, cruel world\n";

    [download]

    When you run the code, instead of going to START it actually goes to END. The trouble is that the label goes away inside the tied FETCH sub with no explanation I can find.

    Cheers - L~R

    Added a code example to make it clearer what is being attempted.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom