# -e " ok Some::Package::Foo->a_method_call($var), 'test succeeded'; " ('Some::Package::Foo'->ok->a_method_call($var), '???'); # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # ( 'Some::Package::Foo' -> ok -> a_method_call ( $var ) , '???' ) ; ################################################################## # -MTest::More -e " ok Some::Package::Foo->a_method_call($var), 'test succeeded'; " use Test::More; ok('Some::Package::Foo'->a_method_call($var), 'test succeeded'); # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # use Test::More; ok ( 'Some::Package::Foo' -> a_method_call ( $var ) , 'test succeeded' ) ;