Essa biblioteca é um conjunto de classes em Perl para acessar as informações do Cobre Grátis através da API.
Todas as classes são herdadas do ActiveResouce. Veja a documentação do ActiveResouce para mais informações.
git clone https://github.com/BielSystems/cobregratis-perl.git
Instale os pré-requisitos nesta ordem:
$ sudo cpan XML::Hash
$ sudo cpan common::sense
$ sudo cpan ActiveResource
use CobreGratis::Bank_Billet;
Bank_Billet->user("seu_token");
Bank_Billet->password("X");
# criar um boleto
my $bank_billet = Bank_Billet->create(
amount => 230.50,
expire_at => '2015-07-22',
name => 'Rafael Lima'
);
print "Nosso Número: ".$bank_billet->attributes->{'our-number'}."\n";
print "Vencimento: ".$bank_billet->attributes->{'expire-at'}."\n";
print "Valor: ".$bank_billet->attributes->{'amount'}."\n";
print "Sacado: ".$bank_billet->attributes->{'name'}."\n";
print "URL: ".$bank_billet->attributes->{'external-link'}."\n";
print "=================================\n";
Veja um exemplo no arquivo example.pm
Esse código é livre para ser usado dentro dos termos da licença MIT license.
Comentários são bem-vindos. Envie seu feedback através do issue tracker do GitHub
Rafael Lima trabalhando na BielSystems
Blog: http://rafael.adm.br
Twitter: http://twitter.com/rafaelp