]>
iEval git - webservice-foaas.git/blob - lib/WebService/FOAAS/Codegen.pm
a8e1dd1bc7d06828b2d72bf510d1fda073b2a968
1 package WebService
::FOAAS
::Codegen
;
8 use JSON
::MaybeXS qw
/decode_json/;
11 my $ht = HTTP
::Tiny
->new;
12 my $result = $ht->get('https://foaas.com/operations');
13 die $result->{reason
} unless $result->{success
};
18 ### Start of code generated by WebService::FOAAS::Codegen->run
20 \=head1 AVAILABLE METHODS
25 my @ops = map { $_->{url
} =~ y/-/_/r } @
{decode_json
$result->{content
}};
27 my (undef, $name, @args) = split '/', $op;
29 push @export, "foaas_$name";
32 \=item foaas_$name @{[join ', ', map { y/:/$/r } @args]}
37 die "Expected $nargs arguments" unless \@_ == $nargs || \@_ == @{[$nargs + 1]};
41 BEGIN { \*$name = \\&foaas_$name }
45 my @export_ok = (@export, map { substr $_, 6 } @export);
49 our \@EXPORT = qw/@export/;
50 our \@EXPORT_OK = qw/@export_ok/;
57 ### End of code generated by WebService::FOAAS::Codegen->run
This page took 0.046119 seconds and 4 git commands to generate.