#!perl -w
package main;
use strict;
use JSON 'decode_json';
use Finance::Bank::Postbank_de::APIv1;
use Mojolicious::Lite;
use POSIX 'strftime';
use Getopt::Long;
use Pod::Usage;
GetOptions(
'use
package Finance::Bank::Postbank_de::APIv1;
use Moo;
use JSON 'decode_json';
use Filter::signatures;
no warnings 'experimental::signatures';
use feature 'signatures';
use Carp 'croak';
use WWW::Mechani
tps://meine.postbank.de/configuration.json');
};
if( my $err = $@ ) {
$self->diagnoseCertificateError( "$@ ");
};
my $config = decode_json( $ua->content );
if( ! exists $co
'device-signature' => $config->{'iob5-base'}->{apiKey},
accept => ['application/hal+json', '*/*'],
keep_alive => 1,
# / business
#!perl -w
package main;
use strict;
use WWW::Mechanize;
use LWP::Protocol::https;
use JSON 'decode_json';
#use LWP::ConsoleLogger::Easy qw( debug_ua );
use HTTP::CookieJar::LWP;
use Data::Dumper;
use
package HAL::Resource;
use Moo;
use JSON 'decode_json';
use Filter::signatures;
no warnings 'experimental::signatures';
use feature 'signatures';
use Future;
use Carp qw(croak);
our $VERSION = '0.57
'https://api.example.com/');
my $r = HAL::Resource->new(
ua => $ua,
%{ decode_json( $res->decoded_content ) },
);
=head1 ABOUT
This module is just a very thin wrapper for HAL
TTP transfer facility and
currently fails its test suite
L<HAL::Tiny> - a module to generate HAL JSON
L<WebAPI::DBIC::Resource::HAL> - an adapter to export DBIx::Class structures
as HAL
Hypertext A
#!perl -w
package main;
use strict;
use WWW::Mechanize;
use LWP::Protocol::https;
use JSON 'decode_json';
#use LWP::ConsoleLogger::Easy qw( debug_ua );
use HTTP::CookieJar::LWP;
use Data::Dumper;
use