File Coverage

blib/lib/Net/Google/Code.pm

Criterion	Covered	Total	%
statement	76	76	100.0
branch	15	28	53.5
condition			n/a
subroutine	12	12	100.0
pod	7	7	100.0
total	110	123	89.4

package Net::Google::Code;

use Any::Moose;
with 'Net::Google::Code::TypicalRoles';
use Scalar::Util qw/blessed/;

our $VERSION = '0.19';

has 'project' => (
    isa      => 'Str',
    is       => 'rw',
);

has 'labels' => (
    isa => 'ArrayRef',
    is  => 'rw',
);

has 'owners' => (
    isa => 'ArrayRef',
    is  => 'rw',
);

has 'members' => (
    isa => 'ArrayRef',
    is  => 'rw',
);

has 'summary' => (
    isa => 'Str',
    is  => 'rw',
);

has 'description' => (
    isa => 'Str',
    is  => 'rw',
);

has 'issues' => (
    isa => 'ArrayRef[Net::Google::Code::Issue]',
    is  => 'rw',
);

has 'downloads' => (
    isa => 'ArrayRef[Net::Google::Code::Download]',
    is  => 'rw',
);

has 'wikis' => (
    isa => 'ArrayRef[Net::Google::Code::Wiki]',
    is  => 'rw',
);

sub download {
    my $self = shift;
    require Net::Google::Code::Download;
    return Net::Google::Code::Download->new(
        project => $self->project,
        $self->email    ? ( email    => $self->email )    : (),
        $self->password ? ( password => $self->password ) : (),
        @_
    );
}

sub issue {
    my $self = shift;
    require Net::Google::Code::Issue;
    return Net::Google::Code::Issue->new(
        project => $self->project,
        $self->email    ? ( email    => $self->email )    : (),
        $self->password ? ( password => $self->password ) : (),
        @_
    );
}

sub wiki {
    my $self = shift;
    require Net::Google::Code::Wiki;
    return Net::Google::Code::Wiki->new(
        project => $self->project,
        $self->email    ? ( email    => $self->email )    : (),
        $self->password ? ( password => $self->password ) : (),
        @_
    );
}


sub load {
    my $self = shift;
    my $content = $self->fetch( $self->base_url );
    return $self->parse( $content );
}

sub parse {
    my $self    = shift;
    my $tree    = shift;
    my $need_delete = not blessed $tree;
    $tree = $self->html_tree( html => $tree ) unless blessed $tree;

    my $summary =
      $tree->look_down( id => 'psum' )->find_by_tag_name('a')->content_array_ref->[0];
    $self->summary($summary) if $summary;

    my $description =
      $tree->look_down( id => 'wikicontent' )->content_array_ref->[0]->as_text;
    $self->description($description) if $description;

    if (
        my $members_header = $tree->look_down(
            _tag => 'b',
            sub { $_[0]->as_text eq 'Committers:' }
        )
      )
    {
        my @a = $members_header->parent->find_by_tag_name('a');
        my @members;
        for my $member (@a) {
            push @members, $member->as_text;
        }

        $self->members( \@members );
    }

    if (
        my $owners_header = $tree->look_down(
            _tag => 'b',
            sub { $_[0]->as_text eq 'Owners:' }
        )
      )
    {
        my @a = $owners_header->parent->find_by_tag_name('a');
        my @owners;
        for my $owner (@a) {
            push @owners, $owner->as_text;
        }

        $self->owners( \@owners );
    }

    my @labels;
    my @labels_tags = $tree->look_down( href => qr/q\=label\:/ );
    for my $tag (@labels_tags) {
        push @labels, $tag->content_array_ref->[0];
    }
    $self->labels( \@labels ) if @labels;
    $tree->delete if $need_delete;
    return 1;
}


sub load_downloads {
    my $self = shift;
    my $content = $self->fetch( $self->base_feeds_url . 'downloads/list' );
    my @rows = $self->rows( html => $content );
    my @downloads;
    require Net::Google::Code::Download;
    for my $row ( @rows ) {
        my $download = Net::Google::Code::Download->new(
            project => $self->project,
            %$row,
        );
        $download->load;
        push @downloads, $download;
    }
    $self->downloads( \@downloads );
}


sub load_wikis {
	my $self = shift;

	my $wiki_svn = $self->base_svn_url . 'wiki/';
    my $content  = $self->fetch( $wiki_svn );
    my $tree = $self->html_tree( html => $content );

    my @wikis;
    my @li = $tree->find_by_tag_name('li');
    for my $li ( @li ) {
        my $name = $li->as_text;
        if ( $name =~ /(\S+)\.wiki$/ ) {
            $name = $1;
            require Net::Google::Code::Wiki;
            my $wiki = Net::Google::Code::Wiki->new(
                project => $self->project,
                name    => $name,
            );
            $wiki->load;
            push @wikis, $wiki;
        }
    }
    $tree->delete;
    $self->wikis( \@wikis );
}

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

1;

__END__