sub preapply {
    my ($class) = @_;

    *logpath = sub {
        my ($this) = @_;

        return File::Spec->rel2abs( join( '-', split /::/, $class ) . '.log',
            $this->log_root );
    };
}