Re^3: Array reference error

Oops, yes. I meant uninitialized. Fixed.

Turning off strict refs should not be necessary for this.

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

Comment on Re^3: Array reference error Download Code

Replies are listed 'Best First'.
Re^4: Array reference error by AnomalousMonk (Archbishop) on Feb 28, 2014 at 19:22 UTC
For this particular example, `no strict 'refs';` seems to be essential. (Checked under both ActiveState 5.8.9 and Strawberry 5.14.4.1) `c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le "my %res; ;; no warnings qw(uninitialized); ;; @{$res{'act'}} = sort { return 0 unless $a->{'act'} =~ /^move/ and $b->{'act'} =~ /^move/; return $a->{'act'} cmp $b->{'act'}; } @{$res{'acts'}}; dd \%res; " Can't use an undefined value as an ARRAY reference at -e line 1.` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Array reference error
by AnomalousMonk (Archbishop) on Feb 28, 2014 at 19:22 UTC

For this particular example, no strict 'refs'; seems to be essential. (Checked under both ActiveState 5.8.9 and Strawberry 5.14.4.1)

  
c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my %res;
 ;;
 no warnings qw(uninitialized);
 ;;
 @{$res{'act'}} = sort {
   return 0 unless $a->{'act'} =~ /^move/ and $b->{'act'} =~ /^move/;
   return $a->{'act'} cmp $b->{'act'};
   } @{$res{'acts'}};
 dd \%res;
"
Can't use an undefined value as an ARRAY reference at -e line 1.
[download]

[reply]
[d/l]
[select]