# SUBS

my $log;

sub do_this{
    ($log||=Log->new)->log('Log This');
}

sub do_that{
    ($log||=Log->new)->log('Log That');
}