Re^2: 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
};
[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]

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

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

Re^3: Returning a tied scalar
by MarkusLaker (Beadle) on Apr 17, 2005 at 11:00 UTC

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]