sub log {
    my ($self, $msg) = @_;
    push @{ $self->{log} }, {
        timestamp => time,
        message => $msg,
    };
}

sub foo {
    my ($self) = @_;
    $self->log('Entered foo');
}