Re^3: lvalue and perl debug

don't you have to "use subs" or other some such pragma?

the hardest line to type correctly is: stty erase ^H

Comment on Re^3: lvalue and perl debug

Replies are listed 'Best First'.
Re^4: lvalue and perl debug by deepfryed (Novice) on Dec 10, 2007 at 00:29 UTC
Nope, not really. `my %foo; tie %foo, 'My::SpecialValidator'; sub bar : lvalue { $foo{bar}; } package My::SpecialValidator; sub STORE { my ($class, $attr, $value); if ($attr eq 'bar' && $value !~ /^\d$/) { # exception. } ... }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: lvalue and perl debug
by deepfryed (Novice) on Dec 10, 2007 at 00:29 UTC

my %foo;
tie %foo, 'My::SpecialValidator';

sub bar : lvalue {
   $foo{bar};
}

package My::SpecialValidator;

sub STORE {
   my ($class, $attr, $value); 
   if ($attr eq 'bar' && $value !~ /^\d$/) {
       # exception.
   }

   ...
}
[download]

[reply]
[d/l]