File Coverage

blib/lib/Net/Airbrake/Request.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition	4	8	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	26	32	81.2

package Net::Airbrake::Request;

use strict;
use warnings;

use JSON qw(encode_json);
use Class::Tiny qw(errors context environment session params);

sub to_json {
    my $self = shift;

    encode_json({
        notifier    => {
            name    => "Net-Airbrake/$Net::Airbrake::VERSION",
            version => "$Net::Airbrake::VERSION",
            url     => 'https://github.com/sixapart/Net-Airbrake',
        },
        errors      => [ map { $_->to_hash } @{$self->errors || []} ],
        environment => $self->environment || {},
        context     => $self->context     || {},
        session     => $self->session     || {},
        params      => $self->params      || {},
    });
}

1;
__END__