Re^2: "warn" is your best friend

You want to know my trick for that? When debugging, instead of outputting with warn $message, output messages with ::diag $message.

Advantages:

::diag outputs messages prefixed with a "#" sign, so it looks nice in test output.
::diag won't cause Test::Warnings fails.
When you're not running your test suite, Test::More probably won't be loaded, so the ::diag function won't exist. This will cause ::diag $message to bomb loudly, so you won't forget any debugging messages you've scattered amongst your code.

Note that because of the way function calls are parsed in Perl, including parentheses in the function call like ::diag($message) will make it bomb at run-time instead of compile-time. This is why I recommend not using the parentheses in ::diag $message. If you need to resolve ambiguities using parentheses, you can always do so with external ones like (::diag $message).
Along the same lines, a statement that starts with :: looks weird, so will stand out like a sore thumb when you're looking for it to remove it.

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

Comment on Re^2: "warn" is your best friend Select or Download Code

Replies are listed 'Best First'.
Re^3: "warn" is your best friend by Bloodnok (Vicar) on Mar 23, 2014 at 21:58 UTC
Hiya tobyink, Much as tho' I like and indeed really appreciate, your insight into debugging the test cases, I was actually referring to the use of spurious debugging statement(s) in the code itself - where my use of warn suggested that the code was even more broken than and in a different place to, the actual problem. A user level that continues to overstate my experience :-))	[reply]
Re^4: "warn" is your best friend by tobyink (Canon) on Mar 24, 2014 at 12:45 UTC
Yes, I meant use `::diag` for debugging in the module code itself; not just in the test suite! `use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name`	[reply] [d/l]
Re^5: "warn" is your best friend by Bloodnok (Vicar) on Mar 24, 2014 at 14:25 UTC
Aahh, I see now - at the time the leading '`::`' wasn't abundantly clear (as if anything ever is? :-) How on earth did you find out about that - there's nothing in the perldoc for it ? Awesome, ground-breaking (for me) discovery. Many thanx again ... tobyink++++ A user level that continues to overstate my experience :-))	[reply] [d/l]
Re^6: "warn" is your best friend by tobyink (Canon) on Mar 24, 2014 at 17:22 UTC