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();