Select Code to Download

sub foo { return @foo }

$object->bar($wibble, foo());

$ perl -MData::Dumper -e 'sub foo {@a}; bar(1,foo()); sub bar {print D
+umper \@_}'
$VAR1 = [
          1
        ];