use Perl

• Monitoring with Names (Score:1)

  by n1vux (1492) on 2003.12.11 17:06 (#26457) Homepage Journal

  I am really glad you included this example, since I was thinking on the previous Tied example that an Attribute autotie would be a useful helper for that one.

  I would find monitoring multiple variables all called $VAR1 frustrating. So I would want to extend the example to use the 2-arg version of Data::Dumper::Dump. Finger-painting, we can replace the Report loop with

  print Data::Dumper::Dump([@monitoring{sort keys %monitoring}],[sort keys %monitoring]);

  To do that, we need to capture the name of the monitored variable, so we replace push @monitoring, $referent; with

  $monitoring{*{$symbol}{NAME}}=$referent;

  except that doesn't work for the lexicals illustrated, so would have to detect $symbol eq 'LEXICAL' and look for an attribute argument in $data, such as 'Monitor(name=>Fred)'.

  Which makes it so messy I understand why you kept the example simple!

  Cheers,
  Bill

  --
  Bill
  # I had a sig when sigs were cool
  use Sig;

  Reply to This