Select Code to Download

41 $self=shift

use LogMessages qw(/path/to/logfile);

my %logfile;

...
    my $class          = shift;
    $logfile{ +caller} = @_ ? shift : "/tmp/logfile.$$";
};

sub _log : ATTR(CODE) {
    my ($pkg, $sym, $code) = @_;
...
        };
    }
}

sub log_message {
    my $logfile = shift;
...
        print $LOGFILE @_;
    }
}