From adf06fefd3f23850941d706a0765c8ff9a6fa4b4 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 2 Jun 2010 11:34:38 +0200 Subject: s/with_caller/with_meta/, move code into roles --- lib/MooseX/Net/API.pm | 504 ++++++++++---------------------------------------- 1 file changed, 99 insertions(+), 405 deletions(-) (limited to 'lib/MooseX/Net/API.pm') diff --git a/lib/MooseX/Net/API.pm b/lib/MooseX/Net/API.pm index 634416f..b0e02b8 100644 --- a/lib/MooseX/Net/API.pm +++ b/lib/MooseX/Net/API.pm @@ -1,355 +1,56 @@ package MooseX::Net::API; -use URI; -use Try::Tiny; -use HTTP::Request; - use Moose; use Moose::Exporter; -use MooseX::Net::API::Error; - -use MooseX::Net::API::Meta::Class; -use MooseX::Net::API::Meta::Method; - -use MooseX::Net::API::Role::Serialize; -use MooseX::Net::API::Role::Deserialize; - -our $VERSION = '0.10'; - -my $list_content_type = { - 'json' => 'application/json', - 'yaml' => 'text/x-yaml', - 'xml' => 'text/xml', -}; - -my ( $do_auth, $base_url, $auth_method, $deserialize_method ); +our $VERSION = '0.13'; Moose::Exporter->setup_import_methods( - with_caller => [qw/net_api_method net_api_declare/], ); + with_meta => [qw/net_api_method net_api_declare/], + also => [qw/Moose/] +); -sub init_meta { - my ( $me, %options ) = @_; - - my $for = $options{for_class}; - Moose::Util::MetaRole::apply_metaroles( - for_class => $for, - metaclass_roles => ['MooseX::Net::API::Meta::Class'], - ); +sub net_api_method { + my $meta = shift; + my $name = shift; + $meta->add_net_api_method($name, @_); } sub net_api_declare { - my $caller = shift; - my $name = shift; - my %options = @_; - - my $class = Moose::Meta::Class->initialize($caller); - - $class->add_attribute( - 'api_base_url', - is => 'rw', - isa => 'Str', - lazy => 1, - default => delete $options{base_url} || '' - ); - - if ( !$options{format} ) { - die MooseX::Net::API::Error->new( - reason => "format is missing in your api declaration" ); - } - elsif ( !$list_content_type->{ $options{format} } ) { - die MooseX::Net::API::Error->new( - reason => "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} ) { - die MooseX::Net::API::Error->new( - reason => "format_mode is not set" ); - } - elsif ( $options{format_mode} !~ /^(?:append|content\-type)$/ ) { - die MooseX::Net::API::Error->new( - reason => "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' ) { - die MooseX::Net::API::Error->new( - reason => "useragent must be a CODE ref" ); - } - else { - _add_useragent( $class, delete $options{useragent} ); - } - } - - if ( $options{authentication} ) { - $do_auth = delete $options{authentication}; - } - - if ( $options{username} ) { - $class->add_attribute( - 'api_username', - is => 'ro', - isa => 'Str', - lazy => 1, - default => delete $options{username} - ); - if ( $options{password} ) { - $class->add_attribute( - 'api_password', - is => 'ro', - isa => 'Str', - lazy => 1, - default => delete $options{password} - ); - } - } - 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 ); - } - - if ( $options{serialisation} ) { - $deserialize_method = delete $options{serialize_order}; - } - else { - MooseX::Net::API::Role::Serialize->meta->apply( $caller->meta ); - } + my $meta = shift; + my $name = shift; + $meta->add_net_api_declare($name, @_); } -sub net_api_method { - my $caller = shift; - my $name = shift; - my %options = ( authentication => $do_auth, @_ ); - - if ( !$options{params} && $options{required} ) { - die MooseX::Net::API::Error->new( reason => - "you can't require a param that have not been declared" ); - } - - if ( $options{required} ) { - foreach my $required ( @{ $options{required} } ) { - die MooseX::Net::API::Error->new( reason => - "$required is required but is not declared in params" ) - if ( !grep { $_ eq $required } @{ $options{params} } ); - } - } +sub init_meta { + my ($class, %options) = @_; - my $class = Moose::Meta::Class->initialize($caller); - - my $code; - if ( !$options{code} ) { - $code = sub { - my $self = shift; - my %args = @_; - - my $meta = $self->meta; - - if ( $auth_method && !$meta->find_method_by_name($auth_method) ) { - die MooseX::Net::API::Error->new( reason => - "you provided $auth_method as an authentication method, but it's not available in your object" - ); - } - - if ( $deserialize_method - && !$meta->find_method_by_name($deserialize_method) ) - { - die MooseX::Net::API::Error->new( reason => - "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} } ) { - die MooseX::Net::API::Error->new( - reason => "$arg is not declared as a param" ); - } - } - - # check if all our params declared as required are present - foreach my $required ( @{ $options{required} } ) { - if ( !grep { $required eq $_ } keys %args ) { - die MooseX::Net::API::Error->new( reason => - "$required is declared as required, but is not present" - ); - } - } - - my $path = $options{path}; - - # replace all args in the url - while ( $path =~ /\$(\w+)/ ) { - my $match = $1; - if ( my $value = delete $args{$match} ) { - $path =~ s/\$$match/$value/; - } - } - - $path .= '/' if ( $self->api_base_url !~ m!/^! ); - my $url = $self->api_base_url . $path; - - my $format = $self->api_format(); - $url .= "." . $format if ( $self->api_format_mode() eq 'append' ); - my $uri = URI->new($url); - - my $res = _request( $self, $format, \%options, $uri, \%args ); - if ( $options{expected} ) { - if ( !grep { $_ eq $res->code } @{ $options{expected} } ) { - die MooseX::Net::API::Error->new( - reason => "unexpected code", - http_error => $res - ); - } - } - - my $content_type = $res->headers->{"content-type"}; - $content_type =~ s/(;.+)$//; - - my @deserialize_order - = ( $content_type, $format, keys %$list_content_type ); - - my $content; - if ($deserialize_method) { - $content = $self->$deserialize_method( $res->content, - @deserialize_order ); - } - else { - $content = $self->_do_deserialization( $res->content, - @deserialize_order ); - } - - if ( $res->is_success ) { - if (wantarray) { - return ( $content, $res ); - } - else { - return $content; - } - } - - die MooseX::Net::API::Error->new( - http_error => $res, - reason => $content - ); - }; - } - else { - $code = $options{code}; - } + my $for = $options{for_class}; + Moose->init_meta(%options); - $class->add_method( - $name, - MooseX::Net::API::Meta::Method->new( - name => $name, - package_name => $caller, - body => $code, - %options, - ), + my $meta = Moose::Util::MetaRole::apply_metaroles( + for_class => $for, + metaclass_roles => ['MooseX::Net::API::Meta::Class'], ); - $class->_add_api_method($name); -} -sub _add_useragent { - my $class = shift; - my $code = shift; - - if ( !$code ) { - try { require LWP::UserAgent; } - catch { - die MooseX::Net::API::Error->new( reason => - "no useragent defined and LWP::UserAgent is not available" - ); - }; - - $code = sub { - my $ua = LWP::UserAgent->new(); - $ua->agent("MooseX::Net::API/$VERSION (Perl)"); - $ua->env_proxy; - return $ua; - }; - } - $class->add_attribute( - 'api_useragent', - is => 'rw', - isa => 'Any', - lazy => 1, - default => $code, + Moose::Util::MetaRole::apply_base_class_roles( + for => $for, + roles => [ + qw/ + MooseX::Net::API::Role::UserAgent + MooseX::Net::API::Role::Format + MooseX::Net::API::Role::Authentication + MooseX::Net::API::Role::Serialization + MooseX::Net::API::Role::Request + / + ], ); -} - -sub _request { - my ( $self, $format, $options, $uri, $args ) = @_; - - my $req; - my $method = $options->{method}; - 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 ); - my $content = $self->_do_serialization( $args, $format ); - $req->content($content); - } - else { - die MooseX::Net::API::Error->new( - reason => "$method is not defined" ); - } - - $req->header( 'Content-Type' => $list_content_type->{$format} ) - if $self->api_format_mode eq 'content-type'; - - if ( $do_auth || $options->{authentication} ) { - if ($auth_method) { - $req = $self->$auth_method($req); - } - else { - $req = _do_authentication( $self, $req ); - } - } - - return $self->api_useragent->request($req); -} - -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; + $meta; } 1; + __END__ =head1 NAME @@ -358,58 +59,57 @@ MooseX::Net::API - Easily create client for net API =head1 SYNOPSIS - package My::Net::API; - use Moose; - use MooseX::Net::API; - - # we declare an API, the base_url is http://exemple.com/api - # the format is json and it will be happened to the query - # You can set base_url later, calling $obj->api_base_url('http://..') - net_api_declare my_api => ( - base_url => 'http://exemple.com/api', - format => 'json', - format_api => 'append', - ); + package My::Net::API; + use MooseX::Net::API; - # 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/', - params => [qw/user group/], - required => [qw/user/], - ); + # we declare an API, the base_url is http://exemple.com/api + # the format is json and it will be append to the query + # You can set api_base_url later, calling $obj->api_base_url('http://..') + net_api_declare my_api => ( + api_base_url => 'http://exemple.com/api', + api_format => 'json', + api_format_mode => 'append', + ); - # 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 - }, - ... - ); + # declaring a users method + # calling $obj->users will call http://exemple.com/api/users?country=france + net_api_method users => ( + description => 'this get a list of users', + method => 'GET', + path => '/users/', + params => [qw/country/], + ); - # if the API require authentification, the module will handle basic - # authentication for you - net_api_declare my_api => ( - ... - authentication => 1, - ... - ); + # you can create your own useragent (it must be a LWP::UserAgent object) + net_api_declare my_api => ( + ... + useragent => sub { + my $ua = LWP::UserAgent->new; + $ua->agent('MyUberAgent/0.23'); + return $ua + }, + ... + ); - # if the authentication is more complex, you can delegate to your own method + # 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; + 1; - my $obj = My::Net::API->new(); - $obj->api_base_url('http://...'); - $obj->foo(user => $user); + my $obj = My::Net::API->new(); + $obj->api_base_url('http://...'); + $obj->foo(user => $user); =head1 DESCRIPTION -MooseX::Net::API is module to help to easily create a client for a web API. +MooseX::Net::API is a module to help to easily create a client for a web API. This module is heavily inspired by what L does. B @@ -420,37 +120,33 @@ B =item B - net_api_declare backtype => ( - base_url => 'http://api....', - format => 'json', - format_mode => 'append', - ); + net_api_declare backtype => ( + base_url => 'http://api....', + format => 'json', + format_mode => 'append', + ); =over 2 -=item B (required) +=item B -The base url for all the API's calls. This will add an B -attribut to your class. +The base url for all the API's calls. This will add an B attribut to your class. Can be set at the object creation or before calling an API method. If no api_base_url is defined, the method will die. -=item B (required, must be either xml, json or yaml) +=item B (required, must be either xml, json or yaml) -The format for the API's calls. This will add an B attribut to -your class. +The format for the API's calls. This will add an B attribut to your class. -=item B (required, must be 'append' or 'content-type') +=item B (required, must be 'append' or 'content-type') -How the format is handled. B will add B<.json> to the query, -B will add the content-type information to the header of the -request. +How the format is handled. B will add B<.json> to the query, B will add the content-type information to the header of the request. =item B (optional, by default it's a LWP::UserAgent object) - useragent => sub { - my $ua = LWP::UserAgent->new; - $ua->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"); - return $ua; - }, + useragent => sub { + my $ua = LWP::UserAgent->new; + $ua->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"); + return $ua; + } =item B (optional) @@ -458,8 +154,7 @@ This is a boolean to tell if we must authenticate to use this API. =item B (optional) -The default authentication method only set an authorization header using the -Basic Authentication Scheme. You can write your own authentication method: +The default authentication method only set an authorization header using the Basic Authentication Scheme. You can write your own authentication method: net_api_declare foo => ( ... @@ -493,20 +188,20 @@ path of the query. If you defined your path and params like this - net_api_method user_comments => ( - ... - path => '/user/$user/list/$date/', - params => [qw/user date foo bar/], - ... - ); + net_api_method user_comments => ( + ... + path => '/user/$user/list/$date/', + params => [qw/user date foo bar/], + ... + ); and you call - $obj->user_comments(user => 'franck', date => 'today', foo => 1, bar => 2); + $obj->user_comments(user => 'franck', date => 'today', foo => 1, bar => 2); the url generetad will look like - /user/franck/list/today/?foo=1&bar=2 + /user/franck/list/today/?foo=1&bar=2 =item B [arrayref] @@ -522,8 +217,7 @@ should we do an authenticated call =item B (optional) -When you do a post, the content may have to be sent as arguments in the url, -and not as content in the header. +When you do a post, the content may have to be sent as arguments in the url, and not as content in the header. =back -- cgit 1.4.1 From 116a0371e2b42e7939653e5cc79435dd2ec78378 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 2 Jun 2010 13:24:38 +0200 Subject: fix version number --- lib/MooseX/Net/API.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/MooseX/Net/API.pm') diff --git a/lib/MooseX/Net/API.pm b/lib/MooseX/Net/API.pm index b0e02b8..ff0494d 100644 --- a/lib/MooseX/Net/API.pm +++ b/lib/MooseX/Net/API.pm @@ -3,7 +3,7 @@ package MooseX::Net::API; use Moose; use Moose::Exporter; -our $VERSION = '0.13'; +our $VERSION = '0.11'; Moose::Exporter->setup_import_methods( with_meta => [qw/net_api_method net_api_declare/], -- cgit 1.4.1 From d66a559824e567e3f4f946a8616d99cdb59a11a9 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 3 Jun 2010 09:25:21 +0200 Subject: update POD --- lib/MooseX/Net/API.pm | 106 ++++++++++++++++++++++++++++++++++++++------------ 1 file changed, 82 insertions(+), 24 deletions(-) (limited to 'lib/MooseX/Net/API.pm') diff --git a/lib/MooseX/Net/API.pm b/lib/MooseX/Net/API.pm index ff0494d..b6f0f28 100644 --- a/lib/MooseX/Net/API.pm +++ b/lib/MooseX/Net/API.pm @@ -110,10 +110,53 @@ MooseX::Net::API - Easily create client for net API =head1 DESCRIPTION MooseX::Net::API is a module to help to easily create a client for a web API. + This module is heavily inspired by what L does. B +The following roles are added to your class: + +=over 4 + +=item B + +=item B + +=item B + +=item B + +=item B + +=back + +The following attributes are added to your class: + +=over 4 + +=item B + +=item B + +=item B + +=item B + +=item B + +=item B + +=back + +The following methods are added to your class: + +=over 4 + +=item B + +=back + =head2 METHODS =over 4 @@ -130,17 +173,37 @@ B =item B -The base url for all the API's calls. This will add an B attribut to your class. Can be set at the object creation or before calling an API method. If no api_base_url is defined, the method will die. +The base url for all the API's calls. This will set the B attribut in your class. Can be set at the object creation or before calling an API method. + +=item B + +The format for the API's calls. This will set the B attribut to your class. Value can be: + +=over 2 + +=item B -=item B (required, must be either xml, json or yaml) +=item B -The format for the API's calls. This will add an B attribut to your class. +=item B -=item B (required, must be 'append' or 'content-type') +=back + +=item B + +How the format is handled. B will add B<.$format> to the query, B will set the content-type information to the header of the request. Should be one the following value: -How the format is handled. B will add B<.json> to the query, B will add the content-type information to the header of the request. +=over 2 + +=item B -=item B (optional, by default it's a LWP::UserAgent object) +=item B + +=back + +=item B + +A L object. useragent => sub { my $ua = LWP::UserAgent->new; @@ -148,11 +211,11 @@ How the format is handled. B will add B<.json> to the query, B (optional) +=item B This is a boolean to tell if we must authenticate to use this API. -=item B (optional) +=item B The default authentication method only set an authorization header using the Basic Authentication Scheme. You can write your own authentication method: @@ -165,7 +228,6 @@ The default authentication method only set an authorization header using the Bas sub my_auth_method { my ($self, $req) = @_; #$req is an HTTP::Request object ... - return $req; } =back @@ -174,15 +236,15 @@ The default authentication method only set an authorization header using the Bas =over 2 -=item B [string] +=item B -description of the method (this is a documentation) +A string to describe the method (this is a documentation) -=item B [string] +=item B HTTP method (GET, POST, PUT, DELETE) -=item B [string] +=item B path of the query. @@ -190,7 +252,7 @@ If you defined your path and params like this net_api_method user_comments => ( ... - path => '/user/$user/list/$date/', + path => '/user/:user/list/:date', params => [qw/user date foo bar/], ... ); @@ -199,23 +261,19 @@ and you call $obj->user_comments(user => 'franck', date => 'today', foo => 1, bar => 2); -the url generetad will look like +the url generated will look like /user/franck/list/today/?foo=1&bar=2 -=item B [arrayref] - -list of params. - -=item B [arrayref] +=item B -list of required params. +Arrayref of params. -=item B (optional) +=item B -should we do an authenticated call +Arrayref of required params. -=item B (optional) +=item B When you do a post, the content may have to be sent as arguments in the url, and not as content in the header. -- cgit 1.4.1 From b62c50ed3c9b48d7d964134de5f4ef0fd36a6112 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 3 Jun 2010 09:50:39 +0200 Subject: update POD --- lib/MooseX/Net/API.pm | 12 +++++-- lib/MooseX/Net/API/Error.pm | 1 - lib/MooseX/Net/API/Meta/Class.pm | 26 +++++++++++++++ lib/MooseX/Net/API/Meta/Method.pm | 32 ++++++++++++++++-- lib/MooseX/Net/API/Meta/Method/APIDeclare.pm | 28 +++++++++++++++- lib/MooseX/Net/API/Meta/Method/APIMethod.pm | 26 +++++++++++++++ lib/MooseX/Net/API/Parser.pm | 27 +++++++++++++++ lib/MooseX/Net/API/Parser/JSON.pm | 26 +++++++++++++++ lib/MooseX/Net/API/Parser/XML.pm | 26 +++++++++++++++ lib/MooseX/Net/API/Parser/YAML.pm | 26 +++++++++++++++ lib/MooseX/Net/API/Role/Authentication.pm | 36 ++++++++++++++++++++ lib/MooseX/Net/API/Role/Deserialize.pm | 49 ---------------------------- lib/MooseX/Net/API/Role/Format.pm | 44 +++++++++++++++++++++++++ lib/MooseX/Net/API/Role/Request.pm | 42 ++++++++++++++++++++++++ lib/MooseX/Net/API/Role/Serialization.pm | 46 ++++++++++++++++++++++++++ lib/MooseX/Net/API/Role/UserAgent.pm | 34 ++++++++++++++++++- 16 files changed, 424 insertions(+), 57 deletions(-) delete mode 100644 lib/MooseX/Net/API/Role/Deserialize.pm (limited to 'lib/MooseX/Net/API.pm') diff --git a/lib/MooseX/Net/API.pm b/lib/MooseX/Net/API.pm index b6f0f28..2dcfc13 100644 --- a/lib/MooseX/Net/API.pm +++ b/lib/MooseX/Net/API.pm @@ -72,11 +72,11 @@ MooseX::Net::API - Easily create client for net API ); # declaring a users method - # calling $obj->users will call http://exemple.com/api/users?country=france + # calling $obj->users will call http://exemple.com/api/users/france net_api_method users => ( description => 'this get a list of users', method => 'GET', - path => '/users/', + path => '/users/:country', params => [qw/country/], ); @@ -155,6 +155,14 @@ The following methods are added to your class: =item B +=item B + +=item B + +=item B + +=item B + =back =head2 METHODS diff --git a/lib/MooseX/Net/API/Error.pm b/lib/MooseX/Net/API/Error.pm index a710205..8825877 100644 --- a/lib/MooseX/Net/API/Error.pm +++ b/lib/MooseX/Net/API/Error.pm @@ -29,7 +29,6 @@ sub error { } 1; - __END__ =head1 NAME diff --git a/lib/MooseX/Net/API/Meta/Class.pm b/lib/MooseX/Net/API/Meta/Class.pm index 376578d..9fdd793 100644 --- a/lib/MooseX/Net/API/Meta/Class.pm +++ b/lib/MooseX/Net/API/Meta/Class.pm @@ -8,3 +8,29 @@ with qw/ /; 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Meta::Class + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Meta/Method.pm b/lib/MooseX/Net/API/Meta/Method.pm index bb29a97..7c388b9 100644 --- a/lib/MooseX/Net/API/Meta/Method.pm +++ b/lib/MooseX/Net/API/Meta/Method.pm @@ -11,13 +11,13 @@ extends 'Moose::Meta::Method'; subtype UriPath => as 'Str' => where { $_ =~ m!^/! } => message {"path must start with /"}; -enum 'Method' => qw(GET POST PUT DELETE); +enum Method => qw(GET POST PUT DELETE); has description => (is => 'ro', isa => 'Str'); has method => (is => 'ro', isa => 'Method', required => 1); has path => (is => 'ro', isa => 'UriPath', required => 1, coerce => 1); -has params_in_url => (is => 'ro', isa => 'Bool', default => 0); -has authentication => (is => 'ro', isa => 'Bool', required => 0, default => 0); +has params_in_url => (is => 'ro', isa => 'Bool', default => 0); +has authentication => (is => 'ro', isa => 'Bool', default => 0); has expected => ( traits => ['Array'], is => 'ro', @@ -195,3 +195,29 @@ sub _build_uri { } 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Meta::Class::Method + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm b/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm index b65ef41..14fb83d 100644 --- a/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm +++ b/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm @@ -21,7 +21,7 @@ has accepted_options => ( default => sub { [ qw/api_base_url api_format - api_useranem + api_username api_password authentication authentication_method/ @@ -57,3 +57,29 @@ sub add_net_api_declare { } 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Meta::Class::Method::APIDeclare + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm index 8185522..d55fe82 100644 --- a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm +++ b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm @@ -58,3 +58,29 @@ after add_net_api_method => sub { }; 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Meta::Class::Method::APIMethod + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Parser.pm b/lib/MooseX/Net/API/Parser.pm index d33d857..8bf74b0 100644 --- a/lib/MooseX/Net/API/Parser.pm +++ b/lib/MooseX/Net/API/Parser.pm @@ -6,3 +6,30 @@ sub encode {die "must be implemented"} sub decode {die "must be implemented"} 1; + +__END__ + +=head1 NAME + +MooseX::Net::API::Parser + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Parser/JSON.pm b/lib/MooseX/Net/API/Parser/JSON.pm index 4711a8a..bf4c08b 100644 --- a/lib/MooseX/Net/API/Parser/JSON.pm +++ b/lib/MooseX/Net/API/Parser/JSON.pm @@ -15,3 +15,29 @@ sub decode { } 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Parser::JSON + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Parser/XML.pm b/lib/MooseX/Net/API/Parser/XML.pm index f831cf1..8aee74f 100644 --- a/lib/MooseX/Net/API/Parser/XML.pm +++ b/lib/MooseX/Net/API/Parser/XML.pm @@ -22,3 +22,29 @@ sub decode { } 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Parser::XML + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Parser/YAML.pm b/lib/MooseX/Net/API/Parser/YAML.pm index f359831..5258796 100644 --- a/lib/MooseX/Net/API/Parser/YAML.pm +++ b/lib/MooseX/Net/API/Parser/YAML.pm @@ -15,3 +15,29 @@ sub decode { } 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Parser::YAML + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Role/Authentication.pm b/lib/MooseX/Net/API/Role/Authentication.pm index 6c38641..0b6de69 100644 --- a/lib/MooseX/Net/API/Role/Authentication.pm +++ b/lib/MooseX/Net/API/Role/Authentication.pm @@ -45,3 +45,39 @@ after BUILDALL => sub { }; 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Role::Authentication + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head2 ATTRIBUTES + +=over 4 + +=item B + +=item B + +=back + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Role/Deserialize.pm b/lib/MooseX/Net/API/Role/Deserialize.pm deleted file mode 100644 index cf69087..0000000 --- a/lib/MooseX/Net/API/Role/Deserialize.pm +++ /dev/null @@ -1,49 +0,0 @@ -package MooseX::Net::API::Role::Deserialize; - -use Moose::Role; -use JSON::XS; -use YAML::Syck; -use XML::Simple; -use Try::Tiny; - -my $reverse_content_type = { - 'application/json' => 'json', - 'application/x-yaml' => 'yaml', - 'text/xml' => 'xml', - 'application/xml' => 'xml', -}; - -sub _from_json { - return decode_json( $_[1] ); -} - -sub _from_yaml { - return Load $_[1]; -} - -sub _from_xml { - my $xml = XML::Simple->new( ForceArray => 0 ); - $xml->XMLin( $_[1] ); -} - -sub _do_deserialization { - my ( $caller, $raw_content, @content_types ) = @_; - - my $content; - foreach my $deserializer (@content_types) { - my $method; - if ( $reverse_content_type->{$deserializer} ) { - $method = '_from_' . $reverse_content_type->{$deserializer}; - } - else { - $method = '_from_' . $deserializer; - } - next if ( !$caller->meta->find_method_by_name($method) ); - try { - $content = $caller->$method($raw_content); - }; - return $content if $content; - } -} - -1; diff --git a/lib/MooseX/Net/API/Role/Format.pm b/lib/MooseX/Net/API/Role/Format.pm index 32dbc98..e766161 100644 --- a/lib/MooseX/Net/API/Role/Format.pm +++ b/lib/MooseX/Net/API/Role/Format.pm @@ -39,3 +39,47 @@ has api_format_mode => ( ); 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Role::Format + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head2 METHODS + +=over 4 + +=item B + +=back + +=head2 ATTRIBUTES + +=over 4 + +=item B + +=item B + +=back + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Role/Request.pm b/lib/MooseX/Net/API/Role/Request.pm index eabb32d..214411c 100644 --- a/lib/MooseX/Net/API/Role/Request.pm +++ b/lib/MooseX/Net/API/Role/Request.pm @@ -50,3 +50,45 @@ sub http_request { } 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Role::Request + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head2 METHODS + +=over 4 + +=item B + +=back + +=head2 ATTRIBUTES + +=over 4 + +=item B + +=back + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Role/Serialization.pm b/lib/MooseX/Net/API/Role/Serialization.pm index b813b03..d4feb56 100644 --- a/lib/MooseX/Net/API/Role/Serialization.pm +++ b/lib/MooseX/Net/API/Role/Serialization.pm @@ -70,3 +70,49 @@ sub _load_serializer { } 1; +__END__ + +=head1 NAME + +MooseX::Net::API::Role::Serialization + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head2 ATTRIBUTES + +=over 4 + +=item B + +=back + +=head2 METHODS + +=over 4 + +=item B + +=item B + +=item B + +=back + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut diff --git a/lib/MooseX/Net/API/Role/UserAgent.pm b/lib/MooseX/Net/API/Role/UserAgent.pm index 0c11732..c3a1d5b 100644 --- a/lib/MooseX/Net/API/Role/UserAgent.pm +++ b/lib/MooseX/Net/API/Role/UserAgent.pm @@ -20,5 +20,37 @@ has api_useragent => ( ); 1; - __END__ + +=head1 NAME + +MooseX::Net::API::Role::UseAgent + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +=head2 ATTRIBUTES + +=over 4 + +=item B + +=back + +=head1 AUTHOR + +franck cuny Efranck@lumberjaph.netE + +=head1 SEE ALSO + +=head1 LICENSE + +Copyright 2009, 2010 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. + +=cut -- cgit 1.4.1