Yet Another CPAN Grep

Dezi-Stats ( K/KA/KARMAN/Dezi-Stats-0.001006.tar.gz, KARMAN, 2013; MetaCPAN )

Dezi-Stats/lib/Dezi/Stats/File.pm ( view source; MetaCPAN )

ts::File;

use warnings;
use strict;
use base 'Dezi::Stats';
use Carp;
use Log::Dispatchouli;
use JSON;

our $VERSION = '0.001006';

=head1 NAME

Dezi::Stats::File - store Dezi statistics via Log::Dis

ef> encoded as JSON to the dispatcher()->log method.

=cut

sub insert {
    my $self = shift;
    my $row = shift or croak "hashref required";
    $self->{dispatcher}->log( encode_json($row) );
    r