diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/Net/API.pm | 361 |
1 files changed, 278 insertions, 83 deletions
diff --git a/lib/MooseX/Net/API.pm b/lib/MooseX/Net/API.pm index 91d7de2..b3653ec 100644 --- a/lib/MooseX/Net/API.pm +++ b/lib/MooseX/Net/API.pm @@ -9,46 +9,125 @@ use MooseX::Net::API::Role::Serialize; our $VERSION = '0.01'; -our $list_content_type = { +my $list_content_type = { 'json' => 'application/json', 'yaml' => 'text/x-yaml', 'xml' => 'text/xml', }; -our $reverse_content_type = { 'application/json' => 'json', }; +my $reverse_content_type = { + 'application/json' => 'json', + 'application/x-yaml' => 'yaml', + 'text/xml' => 'xml' +}; + +# XXX uri builder +# XXX encoding +# XXX decoding Moose::Exporter->setup_import_methods( - with_caller => [ qw/net_api_method format_query require_authentication/ ], -); + with_caller => [qw/net_api_method net_api_declare/], ); -sub format_query { - my ( $caller, $name, %options ) = @_; +my ( $do_auth, $auth_method, $deserialize_method ); - Moose::Meta::Class->initialize($caller)->add_method( - _format => sub { - { format => $_[1]->$name, mode => $options{mode} } +sub net_api_declare { + my $caller = shift; + my $name = shift; + my %options = @_; + + my $class = Moose::Meta::Class->initialize($caller); + + if ( !$options{base_url} ) { + croak "base_url is missing in your api declaration"; + } + else { + $class->add_attribute( + 'api_base_url', + is => 'ro', + isa => 'Str', + lazy => 1, + default => delete $options{base_url} + ); + } + + if ( !$options{format} ) { + croak "format is missing in your api declaration"; + } + elsif ( !$list_content_type->{ $options{format} } ) { + croak "format is not recognised. It must be " + . join( " or ", keys %$list_content_type ); + } + else { + $class->add_attribute( + 'api_format', + is => 'ro', + isa => 'Str', + lazy => 1, + default => delete $options{format} + ); + } + + if ( !$options{format_mode} ) { + croak "format_mode is not set"; + } + elsif ( $options{format_mode} !~ /^(?:append|content\-type)$/ ) { + croak "format_mode must be append or content-type"; + } + else { + $class->add_attribute( + 'api_format_mode', + is => 'ro', + isa => 'Str', + lazy => 1, + default => delete $options{format_mode} + ); + } + + if ( !$options{useragent} ) { + _add_useragent($class); + } + else { + my $method = $options{useragent}; + if ( ref $method ne 'CODE' ) { + croak "useragent must be a CODE ref"; } - ); -} + else { + _add_useragent( $class, delete $options{useragent} ); + } + } -my $do_authentication; -sub require_authentication { $do_authentication = $_[1] } + if ( $options{authentication} ) { + $do_auth = delete $options{authentication}; + } + + if ( $options{authentication_method} ) { + $auth_method = delete $options{authentication_method}; + } + + if ($options{deserialisation} ) { + $deserialize_method = delete $options{deserialize_order}; + }else{ + MooseX::Net::API::Role::Deserialize->meta->apply($caller->meta); + } +} sub net_api_method { my $caller = shift; my $name = shift; - my %options = @_; + my %options = (do_auth => $do_auth, @_); - my $class = Moose::Meta::Class->initialize($caller); + if ( !$options{params} && $options{required} ) { + croak "you can't require a param that have not been declared"; + } - for (qw/api_base_url format/) { - if ( !$caller->meta->has_attribute($_) ) { - croak "attribut $_ is missing"; + if ( $options{required} ) { + foreach my $required ( @{ $options{required} } ) { + croak "$required is required but is not declared in params" + if ( !grep { $_ eq $required } @{ $options{params} } ); } } + # XXX check method ici - if ( !$class->meta->has_attribute('useragent') ) { - _init_useragent($class); - } + my $class = Moose::Meta::Class->initialize($caller); my $code; if ( !$options{code} ) { @@ -56,68 +135,101 @@ sub net_api_method { my $self = shift; my %args = @_; - if (!$self->meta->does_role('MooseX::Net::API::Role::Deserialize')){ - MooseX::Net::API::Role::Deserialize->meta->apply($self); + if ( $auth_method + && !$self->meta->find_method_by_name($auth_method) ) + { + croak + "you provided $auth_method as an authentication method, but it's not available in your object"; + } + + if ( $deserialize_method + && !$self->meta->find_method_by_name($deserialize_method) ) + { + croak + "you provided $deserialize_method for deserialisation, but the method is not available in your object"; + } + + # check if there is no undeclared param + foreach my $arg ( keys %args ) { + if ( !grep { $arg eq $_ } @{ $options{params} } ) { + croak "$arg is not declared as a param"; + } } - if (!$self->meta->does_role('MooseX::Net::API::Role::Serialize')){ - MooseX::Net::API::Role::Serialize->meta->apply($self); + + # check if all our params declared as required are present + foreach my $required ( @{ $options{required} } ) { + if ( !grep { $required eq $_ } keys %args ) { + croak + "$required is declared as required, but is not present"; + } } - # XXX apply to all - if ( $options{path} =~ /\$(\w+)/ ) { + # replace all args in the url + while ( $options{path} =~ /\$(\w+)/ ) { my $match = $1; if ( my $value = delete $args{$match} ) { $options{path} =~ s/\$$match/$value/; } } - my $url = $self->api_base_url . $options{path}; - - my $format = $caller->_format($self); - $url .= "." . $self->format if ( $format->{mode} eq 'append' ); - my $req; + # XXX improve uri building + my $url = $self->api_base_url . $options{path}; + my $format = $self->api_format(); + $url .= "." . $format if ( $self->api_format_mode() eq 'append' ); my $uri = URI->new($url); + my $req; my $method = $options{method}; - if ( $method =~ /^(?:GET|DELETE)$/ ) { + if ( $method =~ /^(?:GET|DELETE)$/ || $options{params_in_url} ) { $uri->query_form(%args); $req = HTTP::Request->new( $method => $uri ); } elsif ( $method =~ /^(?:POST|PUT)$/ ) { $req = HTTP::Request->new( $method => $uri ); - # XXX handle POST and PUT for params + # XXX GNI + use JSON::XS; + $req->content( encode_json \%args ); } else { croak "$method is not defined"; } # XXX check presence content type - $req->header( 'Content-Type' => - $list_content_type->{ $format->{format} } ) - if $format->{mode} eq 'content-type'; + $req->header( 'Content-Type' => $list_content_type->{$format} ) + if $self->api_format_mode eq 'content-type'; - my $res = $self->useragent->request($req); + if ($do_auth) { + if ($auth_method) { + $req = $self->$auth_method($req); + } + else { + $req = _do_authentication( $self, $req ); + } + } + + my $res = $self->useragent->request($req); my $content_type = $res->headers->{"content-type"}; - my @deserialize_order = ( $content_type, $format->{format}, - keys %$list_content_type ); - - if ( $res->is_success ) { - my $content; - foreach my $deserializer (@deserialize_order) { - my $method = '_from_' . $deserializer; - try { - $content = $self->$method($res->content); - }; - return $content if $content; - } + my @deserialize_order + = ( $content_type, $format, keys %$list_content_type ); + + my $content; + if ($deserialize_method) { + $content = $self->$deserialize_method( $res->content, + @deserialize_order ); } else { - #return MooseX::Net::API::Error->new( - #code => $res->code, - #error => $res->content - #); + $content = _do_deserialization( $self, $res->content, + @deserialize_order ); } + + return $content if ( $res->is_success ); + + my $error = MooseX::Net::API::Error->new( + code => $res->code, + error => $content, + ); + die $error; }; } else { @@ -135,37 +247,57 @@ sub net_api_method { ); } -sub _request { +sub _add_useragent { my $class = shift; -} + my $code = shift; -sub _init_useragent { - my $class = shift; + if ( !$code ) { + try { require LWP::UserAgent; } + catch { + croak "no useragent defined and LWP::UserAgent is not available"; + }; - try { - require LWP::UserAgent; + $code = sub { + my $ua = LWP::UserAgent->new(); + $ua->agent("MooseX::Net::API/$VERSION (Perl)"); + $ua->env_proxy; + return $ua; + }; } - catch { - croak "no useragent defined and LWP::UserAgent is not available"; - }; - - my $ua = LWP::UserAgent->new(); - $ua->env_proxy; - $class->add_attribute( 'useragent', is => 'rw', - isa => 'LWP::UserAgent', + isa => 'Any', lazy => 1, - default => sub {$ua}, + default => $code, ); } +sub _do_authentication { + my ( $caller, $req ) = @_; + $req->headers->authorization_basic( $caller->api_username, + $caller->api_password ) + if ( $caller->api_username && $caller->api_password ); + return $req; +} + +sub _do_deserialization { + my ( $caller, $raw_content, @content_types ) = @_; + + my $content; + foreach my $deserializer (@content_types) { + my $method = '_from_' . $deserializer; + try { + $content = $caller->$method($raw_content); + }; + return $content if $content; + } +} + package MooseX::Net::API::Meta::Method; use Moose; extends 'Moose::Meta::Method'; -use Carp; has description => ( is => 'ro', isa => 'Str' ); has path => ( is => 'ro', isa => 'Str', required => 1 ); @@ -177,7 +309,6 @@ sub new { my $class = shift; my %args = @_; $class->SUPER::wrap(@_); - } 1; @@ -194,7 +325,16 @@ MooseX::Net::API - Easily create client for net API use Moose; use MooseX::Net::API; - net_api_method => ( + # we declare an API, the base_url is http://exemple.com/api + # the format is json and it will be happened to the query + net_api_declare my_api => ( + base_url => 'http://exemple.com/api', + format => 'json', + format_api => 'append', + ); + + # calling $obj->foo will call http://exemple.com/api/foo?user=$user&group=$group + net_api_method foo => ( description => 'this get foo', method => 'GET', path => '/foo/', @@ -202,38 +342,89 @@ MooseX::Net::API - Easily create client for net API required => [qw/user/], ); + # you can create your own useragent + net_api_declare my_api => ( + ... + useragent => sub { + my $ua = LWP::UserAgent->new; + $ua->agent('MyUberAgent/0.23'); + return $ua + }, + ... + ); + + # if the API require authentification, the module will handle basic + # authentication for you + net_api_declare my_api => ( + ... + authentication => 1, + ... + ); + + # if the authentication is more complex, you can delegate to your own method + + 1; + =head1 DESCRIPTION -MooseX::Net::API is module to help to easily create a client to a web - API +MooseX::Net::API is module to help to easily create a client to a web API =head2 METHODS =over 4 +=item B<net_api_declare> + +=over 2 + +=item B<base_url> (required) + +The base url for all the API's calls. + +=item B<format> (required, must be either xml, json or yaml) + +The format for the API's calls. + +=item B<format_mode> (required, must be 'append' or 'content-type') + +How the format is handled. Append will add B<.json> to the query, content-type +will add the content-type information to the request header. + +=item B<useragent> (optional, by default it's a LWP::UserAgent object) + +=item B<authentication> (optional) + +=item B<authentication> (optional) + +=back + =item B<net_api_method> =over 2 -=item B<description> +=item B<description> [string] description of the method (this is a documentation) -=item B<method> +=item B<method> [string] HTTP method (GET, POST, PUT, DELETE) -=item B<path> +=item B<path> [string] + +path of the query. -path of the query +=item B<params> [arrayref] -=item B<params> +list of params. -list of params +=item B<required> [arrayref] -=item B<required> +list of required params. -list of required params +=item B<authentication> (optional) + +should we do an authenticated call =back @@ -241,12 +432,16 @@ list of required params =head1 AUTHOR -franck cuny E<lt>franck.cuny@rtgi.frE<gt> +franck cuny E<lt>franck@lumberjaph.netE<gt> =head1 SEE ALSO =head1 LICENSE +Copyright 2009 by Linkfluence + +http://linkfluence.net + This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |