package Web::ChromeLogger;
use 5.008005;
use strict;
use warnings;
our $VERSION = "0.06";
use JSON::XS qw//;
use MIME::Base64 qw//;
sub new {
my $class = shift;
my %args = @_==1 ? %{$_[0]}
represent in JSON.
$self->{'json_encoder'} ||= JSON::XS->new()->ascii(1)->convert_blessed->allow_unknown;
$self->{'logs'} = [];
return $self;
}
sub json_encoder { $_[0]->{json_encoder} }
b to_json {
my ($self, $stuff) = @_;
"$stuff"
}
sub encode {
my ($self, $rows) = @_;
no warnings 'once';
local *UNIVERSAL::TO_JSON = sub { $self->to_json(@_) };
my $json_data