File Coverage

blib/lib/Git/PurePerl/Protocol/Git.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	25	28	89.2

package Git::PurePerl::Protocol::Git;
use Moose;
use MooseX::StrictConstructor;
use Moose::Util::TypeConstraints;
use namespace::autoclean;

extends 'Git::PurePerl::Protocol';

has 'hostname' => ( is => 'ro', isa => 'Str', required => 1 );
has 'port'    => ( is => 'ro', isa => 'Int', required => 0, default => 9418 );
has 'project' => ( is => 'rw', isa => 'Str', required => 1 );

sub connect_socket {
    my $self = shift;

    my $socket = IO::Socket::INET->new(
        PeerAddr => $self->hostname,
        PeerPort => $self->port,
        Proto    => 'tcp'
    ) || die $! . ' ' . $self->hostname . ':' . $self->port;
    $socket->autoflush(1) || die $!;
    $self->read_socket($socket);
    $self->write_socket($socket);

    $self->send_line( "git-upload-pack "
            . $self->project
            . "\0host="
            . $self->hostname
            . "\0" );
}

1;