Yet Another CPAN Grep

WWW-Billomat ( A/AC/ACALPINI/WWW-Billomat-0.01.tar.gz, ACALPINI, 2013; MetaCPAN )

WWW-Billomat/lib/WWW/Billomat.pm ( view source; MetaCPAN )

e;

use WWW::Billomat::Client;
use WWW::Billomat::Invoice;
use WWW::Billomat::Invoice::Item;

use JSON;

=head1 NAME

WWW::Billomat - API access to Billomat services

=head1 VERSION

Version 0.01

=cu


    return undef;
}

sub _create_object {
    my($self, $object) = @_;
    my $body = $self->_to_json($object);
    # warn "BODY=$body\n";
    # $body = Encode::encode('ASCII', $body, Encode::FB_XMLC

  # 'Content-Type' => 'application/xml; charset=utf-8'
            'Content-Type' => 'application/json'
        }
    );
    if($response->responseCode() == 201) {
        return $self->_get_object_fr