sub new {
  my($package,$receive,$transmit) = @_;
  my $self = [{
    receive  => 1,
    transmit => 2,
  }, $receive, $transmit];
  bless $self, $package;
}