Re^2: Returning a tied scalar


Problems? Is your data what you think it is?
	PerlMonks

Re^2: Returning a tied scalar

by nobull (Friar)

on Apr 16, 2005 at 13:15 UTC ( [id://448458]=note: print w/replies, xml )

Need Help??

in reply to Re: Returning a tied scalar
in thread 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

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]

In Section Seekers of Perl Wisdom