use strict;
use warnings;
use lib "/home/sho/perl/dev/";
use LogMessages;

BEGIN { our @ISA = qw (LogMessages) }

sub do_something : _log {
        print "I'm doing something.\n";
}

do_something();
[download]

...it croaks

Can't use string ("Entering sub main::do_something
") as a HASH ref while "strict refs" in use at LogMessages.pm line 42.
[download]

42... that should keep you going :-)

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}