Select Code to Download

$ perl -MO=Deparse,-p  -e " ok +Some::Package::Foo->a_method_call($var
+), 'test succeeded'; "
(('ok' + 'Some::Package::Foo'->a_method_call($var)), '???');
-e syntax OK
...
use Test::More;
ok('Some::Package::Foo'->a_method_call($var), 'test succeeded');
-e syntax OK

$ perl -MO=Deparse,-p  -e " ok Some::Package::Foo->a_method_call($var)
+, 'test succeeded'; "
('Some::Package::Foo'->ok->a_method_call($var), '???');
...
use Test::More;
ok('Some::Package::Foo'->a_method_call($var), 'test succeeded');
-e syntax OK