Re: What does a plus mean before a package name?

with

$ 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

$ perl -MO=Deparse,-p  -MTest::More -e " ok +Some::Package::Foo->a_met
+hod_call($var), 'test succeeded'; "
use Test::More;
ok('Some::Package::Foo'->a_method_call($var), 'test succeeded');
-e syntax OK
[download]

without

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

$ perl -MO=Deparse,-p  -MTest::More -e " ok Some::Package::Foo->a_meth
+od_call($var), 'test succeeded'; "
use Test::More;
ok('Some::Package::Foo'->a_method_call($var), 'test succeeded');
-e syntax OK
[download]

Comment on Re: What does a plus mean before a package name? Select or Download Code

Replies are listed 'Best First'.
Re^2: What does a plus mean before a package name? by locked_user sundialsvc4 (Abbot) on May 26, 2011 at 11:31 UTC
Anonymous brother, can you please point out this difference more clearly? I am old, and mine eyes are dim.
Re^3: What does a plus mean before a package name? by Anonymous Monk on May 26, 2011 at 12:41 UTC
Ideas Increase font size? Increase contrast? Disable code wrapping (temporarily)? Switch themes (temporarily)? Run through perltidy/ppi2html/gvim...pastebin...? Try this, with # -e " ok +Some::Package::Foo->a_method_call($var), 'test succeeded'; + " (('ok' + 'Some::Package::Foo'->a_method_call($var)), '???'); # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # ( ( 'ok' + 'Some::Package::Foo' -> 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' ) ; ################################################################## [download] without # -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' ) ; [download]	[reply] [d/l] [select]