File Coverage

blib/lib/Bintray/API/Subject.pm

Criterion	Covered	Total	%
statement	21	42	50.0
branch	0	2	0.0
condition	0	6	0.0
subroutine	7	14	50.0
pod	0	7	0.0
total	28	71	39.4

package Bintray::API::Subject;

#######################
# LOAD CORE MODULES
#######################
use strict;
use warnings FATAL => 'all';
use Carp qw(croak carp);

#######################
# VERSION
#######################
our $VERSION = '0.02';

#######################
# LOAD CPAN MODULES
#######################
use Params::Validate qw(validate_with :types);

use Object::Tiny qw(
  name
  session
);

#######################
# LOAD DIST MODULES
#######################
use Bintray::API::Repo;
use Bintray::API::Session;

#######################
# PUBLIC METHODS
#######################

## Constructor
sub new {
    my ( $class, @args ) = @_;

    my %opts = validate_with(
        params => [@args],
        spec   => {
            session => {
                type => OBJECT,
                isa  => 'Bintray::API::Session',
            },
            name => {
                type    => SCALAR,
                default => '',
            },
        },
    );
    $opts{name} ||= $opts{session}->username()
      || croak "Subject Name is required";

  return $class->SUPER::new(%opts);
} ## end sub new

# Repository Object
sub repo {
    my ( $self, @args ) = @_;

    my %opts = validate_with(
        params => [@args],
        spec   => {
            name => {
                type => SCALAR,
            },
        },
    );

  return Bintray::API::Repo->new(
        session => $self->session(),
        subject => $self,
        name    => $opts{name},
    );
} ## end sub repo

#######################
# API METHODS
#######################

## Info
sub info {
    my ($self) = @_;
  return $self->session->talk(
        path => join( '/', 'users', $self->name, ),
    );
} ## end sub info

## Followers
sub followers {
    my ($self) = @_;
  return $self->session->paginate(
        path => join( '/', 'users', $self->name, 'followers', ),
    );
} ## end sub followers

## Repositories
sub repos {
    my ($self) = @_;

  return $self->session()->talk(
        path => join( '/', 'repos', $self->name() ),
        anon => 1,
    );
} ## end sub repos

## Get Webhooks
sub get_webhooks {
    my ($self) = @_;
  return $self->session->talk(
        path => join( '/', 'webhooks', $self->name() ),
    );
} ## end sub get_webhooks

#######################
# API HELPERS
#######################

# Repository names
sub repo_names {
    my ($self) = @_;
    my $resp = $self->repos() or return;
    my @repos = map { $_->{name} } @{$resp};
  return @repos;
} ## end sub repo_names

#######################
1;

__END__