Akado-Account

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

dynamic_config: 0
generated_by: 'Dist::Zilla version 5.006, CPAN::Meta::Converter version 2.132830'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Akado-Account
requires:
  Carp: 0
  Digest::MD5: 0
  HTTP::Request::Common: 0
  LWP: 0
  XML::XPath: 0
  strict: 0
  utf8: 0
  warnings: 0
resources:
  bugtracker: https://github.com/bessarabov/Akado-Account/issues
  homepage: https://github.com/bessarabov/Akado-Account
  repository: https://github.com/bessarabov/Akado-Account.git
version: 1.2.0

Makefile.PL  view on Meta::CPAN

  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "Akado-Account",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "Akado::Account",
  "PREREQ_PM" => {
    "Carp" => 0,
    "Digest::MD5" => 0,
    "HTTP::Request::Common" => 0,
    "LWP" => 0,
    "XML::XPath" => 0,
    "strict" => 0,
    "utf8" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Test::More" => 0
  },
  "VERSION" => "1.2.0",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Carp" => 0,
  "Digest::MD5" => 0,
  "HTTP::Request::Common" => 0,
  "LWP" => 0,
  "Test::More" => 0,
  "XML::XPath" => 0,
  "strict" => 0,
  "utf8" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {

lib/Akado/Account.pm  view on Meta::CPAN

}

# ABSTRACT: get internet provider Akado account info

use strict;
use warnings FATAL => 'all';
use utf8;

use Carp;
use Digest::MD5 qw(md5_hex);
use HTTP::Request::Common;
use LWP;
use XML::XPath;


sub new {
    my ($class, $self) = @_;

    croak 'No login specified, stopped' unless $self->{login};
    croak 'No password specified, stopped' unless $self->{password};

lib/Akado/Account.pm  view on Meta::CPAN

    $browser->{cookie_jar}->set_cookie(
        0,        # version
        'render', # key
        'xml',    # value
        '/',      # $path
        $self->_get_domain_from_cookies($browser->{cookie_jar}), # domain
    );

    my $url = $self->{site} . "/finance/display.xml";

    my $request = HTTP::Request->new(
        'GET',
        $url,
    );

    my $response = $browser->request($request);
    $self->_check_response($response);

    return $response;
}