my @ARRAY = @{ subroutine() };
[download]

This is fewer lines of course, and arguably a bit neater than a temporary variable, but in terms of real efficiency (i.e. CPU, memory, etc) makes very little difference.

Darn thing causes fatal error of Can't use an undefined value as an ARRAY reference if undef is received under strict 'refs', where the dereference result could have been an empty list without the need to invoke no strict ... . I will take the temporary variable to do a check first.

what? Can you demonstrate that?

Can you show what exactly gives you that error? I get no errors/warnings with this:

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

my @result = @{ subroutine() };
say "@result";

sub subroutine {
    my @array = ();
    return \@array;
}
[download]

In that case,

my @ARRAY = @{ subroutine() || [] };
[download]

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

Thanks to everyone for your input. For my purposes, I don't have to worry about the possibility of my sub returning undef. So, I like tobyink's:

my @ARRAY = @{ subroutine() };
[download]

for it's simplicity and function. I will keep in mind Anon's recommendation for using 'eval' in the event I need to handle possibility of undef. Thanks all! I hope this thread is useful for others in the future. I didn't find what I was looking for when I searched. Cheers.

Hey all. Related question. Is there a way to avoid this multi step operation when I have multiple return values of a sub? e.g.:

my ($ref1, $ref2) = retarrayrefs();
my @arr1=@$ref1;
my @arr2=@$ref2;

sub retarrayrefs {
 my @arr1=qw(one two three);
 my @arr2=qw(four five six seven);
 return (\@arr1,\@arr2);
}
[download]

I was trying many variations of the below, but none work properly, and it just doesn't seem like a good thing to do. Should I stop trying to shorten this code and simply stick with the above?

my (@arr1,@arr2) = ( ${retarrays()[0]}, ${retarrays()[1]} );
[download]

my @ARRAY=subroutine();

sub subroutine {
 my @array=("one", "two"," three");
 return @array;
}
[download]

If you still need to return an array-ref in other cases just check wantarray in a condition to see if a scalar is expected.

return wantarray ? @array : \@array;
[download]