Devel::Messenger 0.01

Devel::Messenger is a Perl module who let your code talk to you.

SYNOPSIS

use Devel::Messenger qw{note};

# set up localized subroutine
local *note = Devel::Messenger::note {
output => print,
level => 2,
pkgname => 1,
linenumber => 1,
wrap => ["< !--", "-- >n"],
};

# print a note
note "This is a sample noten";

# print a multipart note
note "This is line two. ";
note "continue", "This is still line two.n";

# print if level is high enough
note 2, "This is debug level twon";

Do you want your program to tell you what it is doing? Send this messenger into the abyss of your code to bring back to you all the pertinent information you want.

First, set notes in your code, in-line comments that start with note instead of #.

# this is an in-line comment (it is boring)
note "this is a note (things start getting exciting now)n";

To keep your program from giving you terrible errors about note not being defined, give it something to do.

use subs qw{note};
sub note {}

Or you could import the slightly more powerful note subroutine defined in Devel::Messenger.

use Devel::Messenger qw{note};

By itself, note does not do anything. Right now, all it is doing is making sure Perl doesnt give you an error message and die.