Re: Returning a tied scalar

if you can live without OO, using lvalue subrutines with (\$) prototypes makes things cleaner:

sub int_monitor (\$ ) :lvalue {
  my $var=shift;
  print "$var\n";
  $$var
};

int_monitor(my $foo) = 14;
print "$foo\n";

(int_monitor my $bar) = 15;
print "$bar\n";
[download]

or another way:

sub int_monitor (\$;$)  {
  my $var=shift;
  print "$var\n";
  $$var=shift if @_
};

int_monitor my $foo => 14;
print "$foo\n";
[download]

Comment on Re: Returning a tied scalar Select or Download Code

Replies are listed 'Best First'.
Re^2: Returning a tied scalar by nobull (Friar) on Apr 16, 2005 at 13:15 UTC
If you can live without OO, using lvalue subrutines with (\$) prototypes makes things cleaner: `sub int_monitor (\$ ) :lvalue { my $var=shift; print "$var\n"; $$var };` [download] There is no need for a prototype which also means you don't need to forgo the OO if you don't want to. `sub int_monitor:lvalue { my $var=\shift; print "$var\n"; $$var };` [download]	[reply] [d/l] [select]
Re^3: Returning a tied scalar by MarkusLaker (Beadle) on Apr 17, 2005 at 11:00 UTC
Nobull writes: There is no need for a prototype which also means you don't need to forgo the OO if you don't want to. `sub int_monitor:lvalue { my $var=\shift; print "$var\n"; $$var };` [download] Very neat! I guess that relies on two facts: that `@_` contains aliases to the args (which I knew but had forgotten) and that `shift` returns the first element of the array, rather than a copy of it. Thanks for your suggestions, Markus	[reply] [d/l] [select]