use Time::HiRes qw/ gettimeofday /;

sub log {
    my ( $self, $args ) = @_;

    my $data = {
        time    => join('.', ( gettimeofday )),
        pid     => $args->{'pid'},
        action  => $args->{'action'},
    };

    $self->write( $data );
}