diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-07-16 16:12:32 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-07-16 16:12:32 +0200 |
| commit | 5fdee9e79b5b6a72522bee59e4bd7c62506a43c7 (patch) | |
| tree | 9e9f16e674310d95f7c39cea92e87aaa57d67746 /lib/MooseX/Net/API/Role/Authentication.pm | |
| parent | another fix for path (diff) | |
| download | moosex-net-api-5fdee9e79b5b6a72522bee59e4bd7c62506a43c7.tar.gz | |
remove tests and old lib; use base net::http::api; DEPRECATED
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/Net/API/Role/Authentication.pm | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/lib/MooseX/Net/API/Role/Authentication.pm b/lib/MooseX/Net/API/Role/Authentication.pm deleted file mode 100644 index 7859154..0000000 --- a/lib/MooseX/Net/API/Role/Authentication.pm +++ /dev/null @@ -1,63 +0,0 @@ -package MooseX::Net::API::Role::Authentication; - -# ABSTRACT: Add authentication informations to request header - -use Moose::Role; - -has api_username => ( - is => 'rw', - isa => 'Str', - predicate => 'has_api_username', -); - -has api_password => ( - is => 'rw', - isa => 'Str', - predicate => 'has_api_password', -); - -# ugly :( -after BUILDALL => sub { - my $self = shift; - - for (qw/api_username api_password/) { - my $predicate = 'has_' . $_; - my $value = $self->meta->get_api_option($_); - $self->$_($value) if $value && !$self->$predicate; - } - - if (my $has_auth = $self->meta->get_api_option('authentication')) { - my $auth_method = $self->meta->get_api_option('authentication_method'); - if ($auth_method) { - $self->api_useragent->add_handler( - request_prepare => sub { $self->$auth_method(@_) }); - } - else { - if ($self->has_api_username && $self->has_api_password) { - $self->api_useragent->add_handler( - request_prepare => sub { - my $req = shift; - $req->headers->authorization_basic($self->api_username, - $self->api_password); - } - ); - } - } - } -}; - -1; - -=head1 SYNOPSIS - -=head1 DESCRIPTION - -=head2 ATTRIBUTES - -=over 4 - -=item B<api_password> - -=item B<api_username> - -=back |