Re: Bean properties...

#!/usr/bin/perl --

use strict;
use warnings;

beans();
warn $_ for beans(); # 7
warn scalar beans();

sub beans {
    return unless defined wantarray;
    warn 'beans';
    my @beans = 1 .. 3;
    return wantarray ? @beans : \@beans;
}
__END__
beans at - line 12.
1 at - line 7.
2 at - line 7.
3 at - line 7.
beans at - line 12.
ARRAY(0x183aaa0) at - line 8.
[download]

Comment on Re: Bean properties... Download Code

Replies are listed 'Best First'.
Re^2: Bean properties... by buz260 (Novice) on Apr 28, 2009 at 14:58 UTC
Sorry, can you explain that please?	[reply]
Re^3: Bean properties... by Anonymous Monk on Apr 28, 2009 at 15:21 UTC
Yes, read wantarray and Context tutorial	[reply]
Re^4: Bean properties... by buz260 (Novice) on Apr 30, 2009 at 08:03 UTC
OK, but how can that subroutine be used to store an array as an object property? Also I think I've found a solution, how about this: `sub AB { my $self =shift; if (@_) { @{ $self->{AB} } = @_ } return @{ $self->{AB} }; }` [download] Is there a better way to store data per object?	[reply] [d/l]