Yet Another CPAN Grep

Net-TinyERP ( G/GA/GARU/Net-TinyERP-0.09.tar.gz, GARU, 2021; MetaCPAN )

Net-TinyERP/lib/Net/TinyERP/NotaFiscalServicos.pm ( view source; MetaCPAN )

e strict;
use warnings;
use IO::Socket::SSL;
use Scalar::Util ();
use Furl;
use JSON::MaybeXS qw( decode_json encode_json );

sub new {
    my ($class, $parent) = @_;
    my $token = \$parent->{token}

n   => ${$self->{parent_token}},
        formato => 'json',
        %$params,
    });

    if ($res->is_success) {
        my $content = decode_json($res->decoded_content);
        return $content->{r

n $self->_post( 'https://api.tiny.com.br/api2/nota.servico.incluir.php', {
        nota => encode_json({ nota_servico => $params }),
    });
}


sub emitir {
    my ($self, $params) = @_;
    if (!ref

Net-TinyERP ( G/GA/GARU/Net-TinyERP-0.09.tar.gz, GARU, 2021; MetaCPAN )

Net-TinyERP/lib/Net/TinyERP/NotaFiscal.pm ( view source; MetaCPAN )

e strict;
use warnings;
use IO::Socket::SSL;
use Scalar::Util ();
use Furl;
use JSON::MaybeXS qw( decode_json encode_json );

sub new {
    my ($class, $parent) = @_;
    my $token = \$parent->{token}

n   => ${$self->{parent_token}},
        formato => 'json',
        %$params,
    });

    if ($res->is_success) {
        my $content = decode_json($res->decoded_content);
        return $content->{r

rn $self->_post( 'https://api.tiny.com.br/api2/nota.fiscal.incluir.php', {
        nota => encode_json({ nota_fiscal => $params }),
    });
}

sub emitir {
    my ($self, $params) = @_;
    if (ref $p