Yet Another CPAN Grep

Rex-JobControl ( J/JF/JFRIED/Rex-JobControl-0.18.0.tar.gz, JFRIED, 2014; MetaCPAN )

Rex-JobControl/lib/Rex/JobControl/Helper/AuditLog.pm ( view source; MetaCPAN )

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;

$data ) = @_;
  my ( $package, $filename, $line ) = caller;

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

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

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

1;