File Coverage

blib/lib/Net/Lighthouse/Base.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	2	2	100.0
total	39	40	97.5

package Net::Lighthouse::Base;

use Any::Moose;
use MIME::Base64;
use LWP::UserAgent;

has 'account' => (
    isa => 'Str',
    is  => 'ro',
);

has 'auth' => (
    isa     => 'HashRef',
    is      => 'rw',
    default => sub { {} },
    lazy    => 1,
);

no Any::Moose;
__PACKAGE__->meta->make_immutable;

sub base_url {
    my $self = shift;
    return 'http://' . $self->account . '.lighthouseapp.com';
}

sub ua {
    my $self = shift;
    require Net::Lighthouse;
    my $ua =
      LWP::UserAgent->new(
        agent => 'net-lighthouse/' . $Net::Lighthouse::VERSION );
    $ua->default_header( 'Content-Type' => 'application/xml' );
    # email and password have higher priority
    my $auth = $self->auth;
    if ( $auth->{email} && $auth->{password} ) {
        my $base64 = encode_base64( $auth->{email} . ':' . $auth->{password} );
        chomp $base64;
        $ua->default_header( Authorization => 'Basic ' . $base64 );
    }
    elsif ( $auth->{token} ) {
        $ua->default_header( 'X-LighthouseToken', $auth->{token} );
    }

    return $ua;
}

1;

__END__