File Coverage

blib/lib/Protocol/BitTorrent/Message/Port.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	19	20	95.0

package Protocol::BitTorrent::Message::Port;
{
  $Protocol::BitTorrent::Message::Port::VERSION = '0.004';
}
use strict;
use warnings FATAL => 'all', NONFATAL => 'redefine';
use parent qw(Protocol::BitTorrent::Message);

=head1 NAME

Protocol::BitTorrent::Message::Port - indicates TCP/UDP port to use

=head1 VERSION

version 0.004

=cut

=head1 METHODS

=cut

=head2 new

=cut

sub new_from_data {
	my $class = shift;
	my $self = bless {
	}, $class;
	$self;
}

sub type { 'port' }

1;

__END__