File Coverage

blib/lib/WebService/Cmis/Agent/HeaderAuth.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	19	68.4

package WebService::Cmis::Agent::HeaderAuth;

=head1 NAME

WebService::Cmis::Agent::BasicAuth - authenticate via HTTP headers

=head1 DESCRIPTION

This class implements authentication using HTTP headers.

TODO: this is not yet there.

See: L

  my $client = WebService::Cmis::getClient(
    url => "http://cmis.alfresco.com/service/cmis",
    useragent => new WebService::Cmis::Agent::HeaderAuth(
      remoteUserHeader => 'X-Alfresco-Remote-User'
    );
  );

  my $repo = $client->getRepository;

Parent class: L

=cut

use strict;
use warnings;

use WebService::Cmis::Agent ();
our @ISA = qw(WebService::Cmis::Agent);

=head1 METHODS

=over 4

=item new(%params)

Create a new WebService::Cmis::Agent::HeaderAuth.

See L for more options.

Parameters:

=over 4

=item * remoteUserHeader

=back

=cut

sub new {
  my ($class, %params) = @_;

  my $remoteUserHeader = delete $params{remoteUserHeader};

  my $this = $class->SUPER::new(%params);

  $this->{remoteUserHeader} = $remoteUserHeader;

  return $this;
}

=back


=head1 COPYRIGHT AND LICENSE

Copyright 2012-2013 Michael Daum

This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.  See F.

=cut

1;