From 223e96504478e507e4d8e1627cb748fd4ec1c14b Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 2 Jun 2010 18:56:12 +0200
Subject: handle authentication

---
 lib/MooseX/Net/API/Role/Authentication.pm | 47 +++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 lib/MooseX/Net/API/Role/Authentication.pm

(limited to 'lib/MooseX/Net/API/Role/Authentication.pm')

diff --git a/lib/MooseX/Net/API/Role/Authentication.pm b/lib/MooseX/Net/API/Role/Authentication.pm
new file mode 100644
index 0000000..6c38641
--- /dev/null
+++ b/lib/MooseX/Net/API/Role/Authentication.pm
@@ -0,0 +1,47 @@
+package MooseX::Net::API::Role::Authentication;
+
+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_option($_);
+        $self->$_($value) if $value && !$self->$predicate;
+    }
+
+    if (my $has_auth = $self->meta->get_option('authentication')) {
+        my $auth_method = $self->meta->get_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;
-- 
cgit v1.2.3


From b62c50ed3c9b48d7d964134de5f4ef0fd36a6112 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 3 Jun 2010 09:50:39 +0200
Subject: update POD

---
 lib/MooseX/Net/API/Role/Authentication.pm | 36 +++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

(limited to 'lib/MooseX/Net/API/Role/Authentication.pm')

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<api_password>
+
+=item B<api_username>
+
+=back
+
+=head1 AUTHOR
+
+franck cuny E<lt>franck@lumberjaph.netE<gt>
+
+=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 v1.2.3