CPAN::Groonga

er::VERSION = '0.003';

use URI::URL;
use LWP::UserAgent;
use Scalar::Util 'blessed';
use JSON::MaybeXS qw(JSON);

use Net::Mailboxlayer::Error;
use Net::Mailboxlayer::Response;

sub new
{
    my ($cl

catch_all)],
        _json => JSON->new,
    }, $class;

    foreach my $prop (qw (endpoint access_key email_address smtp format callback catch_all user_agent_opts user_agent json_decoder))
    {
    

er_agent};
}

sub json_decoder
{
    my ($self, $val) = @_;

    if ($val and blessed $val and $val->can('decode'))
    {
        $self->{_json} = $val;
    }
    return $self->{_json};
}

sub _build_

 would not normally need to access this.

 print $result->response->decoded_content; # prints the JSON return from the api call.

=head1 AUTHOR

Tom Heady <cpan@punch.net>

=head1 COPYRIGHT & LICENSE

You do not normally need to access this.

 print $result->response->decoded_content; # prints the JSON return from the api call.


=head1 AUTHOR

Tom Heady <cpan@punch.net>

=head1 COPYRIGHT & LICENSE