Finance-Bank-Postbank_de
view release on metacpan or search on metacpan
lib/HAL/Resource.pm view on Meta::CPAN
697071727374757677787980818283848586878889sub
resources(
$self
) {
sort
keys
%{
$self
->_links }
}
sub
fetch_resource_future(
$self
,
$name
,
%options
) {
my
$class
=
$options
{ class } ||
ref
$self
;
my
$ua
=
$self
->ua;
my
$url
=
$self
->resource_url(
$name
)
or croak
"Couldn't find resource '$name' in "
.
join
","
,
sort
keys
%{
$self
->_links};
Future->done(
$ua
->get(
$url
))->then(
sub
(
$res
) {
Future->done(
bless
{
ua
=>
$ua
, %{ decode_json(
$res
->content )} } =>
$class
);
});
}
sub
fetch_resource(
$self
,
$name
,
%options
) {
$self
->fetch_resource_future(
$name
,
%options
)->get
}
sub
navigate_future(
$self
,
%options
) {
$options
{ class } ||=
ref
$self
;
my
$path
=
delete
$options
{ path } || [];
( run in 0.228 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )