Fixed POD, correct authentication header (thanks to Alex Howarth)

kaare · Mar 1, 2012 · 4d17c1a · 4d17c1a
1 parent 026c04a
commit 4d17c1a
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/Role/REST/Client/Auth/Basic.pm b/lib/Role/REST/Client/Auth/Basic.pm
@@ -28,7 +28,7 @@ before '_call' => sub {
 	if ($self->has_user) {
 		my $user = $self->user;
 		my $passwd = $self->has_passwd ? $self->passwd : '';
-		$self->set_header('Basic ' . MIME::Base64::encode("$user:$passwd", ''));
+		$self->set_header('Authorization', 'Basic ' . MIME::Base64::encode("$user:$passwd", ''));
 	}
 	return;
 };
@@ -51,7 +51,8 @@ Role::REST::Client::Auth::Basic - Basic Authentication for REST Client Role
 		package RESTExample;
 
 		use Moose;
-		with 'Role::REST::Client', 'Role::REST::Client::Auth::Basic';
+		with 'Role::REST::Client';
+		with 'Role::REST::Client::Auth::Basic';
 
 		sub bar {
 			my ($self) = @_;