File Coverage

blib/lib/Rex/JobControl/Helper/AuditLog.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition	1	3	33.3
subroutine	4	6	66.6
pod	1	3	33.3
total	21	33	63.6

#
# (c) Jan Gehring
#
# vim: set ts=2 sw=2 tw=0:
# vim: set expandtab:

package Rex::JobControl::Helper::AuditLog;
$Rex::JobControl::Helper::AuditLog::VERSION = '0.7.0';
use base 'Mojo::Log';
use Mojo::JSON;
use DateTime;

sub new {
  my $that  = shift;
  my $proto = ref($that) || $that;
  my $self  = $proto->SUPER::new(@_);

  bless( $self, $proto );

  $self->{json} = Mojo::JSON->new;

  return $self;
}

sub audit {
  my ( $self, $data ) = @_;
  my ( $package, $filename, $line ) = caller;

  my $dt = DateTime->now;
  $data->{package} = $package;

  $self->info( $self->json->encode($data) );
}

sub json { (shift)->{json} }

1;