andrewalker

package MyMooseExported;
use Moose ();
use Moose::Exporter;
use Log::Contextual::SimpleLogger;
use Log::Contextual qw( :log ),
    -logger => Log::Contextual::SimpleLogger->new({ levels => [qw( debug )] });

Moose::Exporter->setup_import_methods(
    with_meta => ['my_has'],
    as_is     => ['some_method'],

andrewalker

#!/usr/bin/env perl
# Playing with mbsync, I ended up duplicating a few hundred messages when tweaking config
# This is the fix :)
use utf8;
use warnings;
use strict;
use Mail::Box::Manager;
use List::Util qw/sum0/;

my $mgr = Mail::Box::Manager->new(access => 'rw');

andrewalker

#!/usr/bin/env perl
use strict;
use warnings qw(all);

use DateTime;

my $year = $ARGV[0] || DateTime->now->year;
my $previous;

for (

andrewalker

import Hakyll
import Text.Pandoc
import Text.Pandoc.PDF (makePDF)
import qualified Data.ByteString.Lazy as B
import qualified Text.Pandoc.UTF8 as UTF8

main = do
-- -- check for latex program
-- mbLatex <- findExecutable "pdflatex"
-- when (mbLatex == Nothing) $

andrewalker

ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQCu4RFtuPQH0ynSDm7w7VrarNQHTjn4hvJkcCLajTDjz3EkoD+miMDcuZLqJb0y+DOSNEI4Y+8CrOS/hrw4mPohF250oOKkN5B3X9BpG2AAsKb3pfLYac64aJYDrEw78sRiIq+QzS1zC3w1gbN5anW/Z98CX2boT9f8XBiIZftqxKCJqXhWBXRca/0Yclawd3QVw22mBBxws924rOuRCQbmtjb0t8vngA3xhmrk9OAnfYEt0ROYsPGaHPo6XYW4CX2qH3ORjsqp/ikULU5i4DPVFfK2lw9I+Oe7UzX0+93N4BleTgx3TW0r9mcxlARxlSyLGXqyBIuNKLmBHQS1+csX andre@andrewalker

andrewalker

### Keybase proof

I hereby claim:

  * I am andrewalker on github.
  * I am andrewalker (https://keybase.io/andrewalker) on keybase.
  * I have a public key whose fingerprint is 3013 472E FA53 8AFC 1B37  36D4 6158 780D 27C0 D33A

To claim this, I am signing this object:

andrewalker

Comecei a implementar a solução do problema que descrevo abaixo aqui:

https://github.com/andrewalker/p5-business-cpi/blob/master/lib/Business/CPI/Role/Receiver.pm

=============

Atualmente:

  my $cpi = Business::CPI->new(
      gateway => 'PayPal',

andrewalker

$ telnet capesdw.capes.gov.br 80
Trying 200.130.18.154...
Connected to capesdw.capes.gov.br.
Escape character is '^]'.
POST /gsa/search; HTTP/1.1
Content-Type: application/x-www-form-urlencoded; charset=UTF-8
Host: capesdw.capes.gov.br
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:25.0) Gecko/20100101 Firefox/25.0
Cookie: symfony=1o3nca5dm5lpnqmel1dkaaq1b4
Content-Length: 22

andrewalker

user
    name
    email
    login
    password

user_role
    user
    role

andrewalker

Hackaton Business::CPI

O que é?

Business::CPI (Common Payment Interface) é um módulo em Perl que define uma interface padrão para comunicação entre programas feitos em Perl e intermediários financeiros (que chamamos no CPI de gateways).