Yet Another CPAN Grep

LibreDTE-SDK ( D/DE/DELAF/LibreDTE-SDK-0.03.tar.gz, DELAF, 2017; MetaCPAN )

LibreDTE-SDK/ejemplos/001-generar_dte.pl ( view source; MetaCPAN )

F (esteban[at]sasco.cl)
# @version 2017-02-20
#

use strict;
use warnings;
use LibreDTE::SDK;
use JSON;

# datos a utilizar en el cliente
my $url = 'https://libredte.cl';
my $hash = '';

# documento q

: '.$generar->{body}) if $generar->{code} != 200;

# obtener el PDF del DTE
my $dte_real = decode_json($generar->{body});
my $generar_pdf = $LibreDTE->get('/dte/dte_emitidos/pdf/'.$dte_real->{dte}.'/'

LibreDTE-SDK ( D/DE/DELAF/LibreDTE-SDK-0.03.tar.gz, DELAF, 2017; MetaCPAN )

LibreDTE-SDK/lib/LibreDTE/SDK.pm ( view source; MetaCPAN )

17-02-20
#

package LibreDTE::SDK;

use 5.024001;
use strict;
use warnings;
use REST::Client;
use JSON;
use MIME::Base64;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers n

 $data_json;
    if (ref($data) eq 'HASH') {
        $data_json = encode_json($data);
    } else {
        $data_json = $data;
    }
    $self->{rest}->POST($self->{host}.'/api'.$api, $data_json);