]>
iEval git - webservice-foaas.git/blob - FOAAS/Codegen.pm
1 package WebService
::FOAAS
::Codegen
;
8 use JSON
::MaybeXS qw
/decode_json/;
10 our $VERSION = '0.002';
13 my $ht = HTTP
::Tiny
->new;
14 my $result = $ht->get('https://foaas.com/operations');
15 die $result->{reason
} unless $result->{success
};
20 ### Start of code generated by WebService::FOAAS::Codegen->run
22 \=head1 AVAILABLE METHODS
27 my @ops = map { $_->{url
} =~ y/-/_/r } @
{decode_json
$result->{content
}};
29 my (undef, $name, @args) = split '/', $op;
31 push @export, "foaas_$name";
34 \=item foaas_$name @{[join ', ', map { y/:/$/r } @args]}
39 die "Expected $nargs arguments" unless \@_ == $nargs || \@_ == @{[$nargs + 1]};
43 BEGIN { \*$name = \\&foaas_$name }
47 my @export_ok = (@export, map { substr $_, 6 } @export);
51 our \@EXPORT = qw/@export/;
52 our \@EXPORT_OK = qw/@export_ok/;
59 ### End of code generated by WebService::FOAAS::Codegen->run
This page took 0.047506 seconds and 4 git commands to generate.