Ties: Trivial (Annoying) Example

Make Something Look Strange

• Tied variables are the ultimate in things that appear what they're not:

     sub STORE {
       my ($self, $val) = @_;
       # Return value is ignored
     }

     sub FETCH {
       return "You are not cleared for access to that information.";
     }

• Now what?

     $cia = "I'm a happy little bunny wabbit";
     $cia =~ tr/A-Z/a-z/;
     $cia .= "foo";

     print $cia;

     You are not cleared for access to that information.

Next

Copyright © 2003 M. J. Dominus