Poet::Util::Debug(3) Debug utilities


# In a script...
use Poet::Script;
# In a module...
use Poet;
# Automatically available in Mason components
# then...
# die with value
dd $data;
# print value to STDERR
dp $data;
# print value to logs/console.log
dc $data;
# return value prepped for HTML
dh $data;
# same as above with full stacktraces
dds $data;
dps $data;
dcs $data;
dhs $data;


These debug utilities are automatically imported wherever "use Poet" or "use Poet::Script" appear, and in all components. Because let's face it, debugging is something you always want at your fingertips.

However, for safety, the short named versions of these utilities are no-ops outside of development mode, in case debug statements accidentally leak into production (we've all done it). You have to use longer, less convenient names outside of development for them to work.


Each of these utilities takes a single scalar value. The value is serialized with Data::Dumper and prefixed with a file name, line number, and pid. e.g.

    dp { a => 5, b => 6 };

prints to STDERR

    [dp at ./d.pl line 6.] [1436] {
      a => 5,
      b => 6

The variants suffixed with 's' additionally output a full stack trace.

dd ($val), dds ($val)
Die with the serialized $val.
dp ($val), dps ($val)
Print the serialized $val to STDERR. Useful in scripts.
dc ($val), dcs ($val)
Append the serialized $val to ``console.log'' in the "logs" subdirectory of the environment. Useful as a quick alternative to full-bore logging.
dh ($val), dhs ($val)
Returns the serialized $val, surrounded by "<pre> </pre>" tags. Useful for embedding in Mason components, e.g.

    <% dh($data) %>

Live variants

Each of the functions above must be appended with ``_live'' in order to work in live mode. e.g.

    # This is a no-op in live mode
    dp [$foo];
    # but this will work
    dp_live [$foo];


Jonathan Swartz <[email protected]>


This software is copyright (c) 2012 by Jonathan Swartz.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.