Select Code to Download

s/foo/bar/ for (@these) if ($this);

map { s/foo/bar/ } @these if ($this);

print "The 'bar' attribute of object 'foo' is $foo->bar();\n";

print "The 'bar' attribute of object 'foo' is @{[ $foo->bar() ]};\n";