File Coverage

blib/lib/Net/Lighthouse.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	4	4	100.0
total	52	52	100.0

package Net::Lighthouse;

use MIME::Base64;
use LWP::UserAgent;
use Params::Validate ':all';
use Net::Lighthouse::Project;
use Net::Lighthouse::Token;
use Net::Lighthouse::User;
use base 'Net::Lighthouse::Base';

our $VERSION = '0.06';

sub project { return shift->_new( 'Project' ) }
sub user { return shift->_new( 'User' ) }
sub token { return shift->_new( 'Token' ) }

sub _new {
    my $self = shift;
    validate_pos(
        @_,
        {
            type  => SCALAR,
            regex => qr/^(Project|Token|User)$/,
        }
    );
    my $class  = 'Net::Lighthouse::' . shift;
    my $object = $class->new(
        map { $_ => $self->$_ }
          grep { $self->$_ } qw/account auth/
    );
    return $object;
}

sub projects {
    my $self   = shift;
    my $object = Net::Lighthouse::Project->new(
        map { $_ => $self->$_ }
          grep { $self->$_ } qw/account auth/
    );
    return $object->list(@_);
}

1;

__END__