lib/VCS/Git/Torrent/PWP/Message/Choke.pm

   1
   2 package VCS::Git::Torrent::PWP::Message::Choke;
   3
   4 =head1 NAME
   5
   6 VCS::Git::Torrent::PWP::Message::Choke
   7
   8 =head2 DESCRIPTION
   9
  10 Implements the Choke message from the RFC.
  11 L<http://gittorrent.utsl.gen.nz/rfc.html#anchor33>
  12
  13 =cut
  14
  15 use Moose;
  16 with "VCS::Git::Torrent::PWP::Message";
  17 use Carp;
  18
  19 sub payload { }
  20 sub args {
  21         my $class = shift;
  22         croak("Choke has no arguments") if @_;
  23         return();
  24 }
  25 sub action {
  26         my $self = shift;
  27         my $local_peer = shift;
  28         my $connection = shift;
  29         $connection->choked_in(1);
  30 }
  31
  32 1;