# MP3::Napster, by Lincoln Stein
    
package MP3::Napster;
   
use MP3::Napster::MessageCodes;
  
sub new {
  my $class       = shift;

  # create and store the server object
  if (my $servobj = MP3::Napster::Server->new($server,$self,$metaserver)) {
    $self->server($servobj);
  } else {
    $self->disconnect;
    return;
  }

  $self->install_default_callbacks;
  $self;
}


##</code><code>##

package MP3::Napster::MessageCodes;
require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

@ISA = qw(Exporter MP3::Napster::Base);
@EXPORT = qw(JOIN_ACK MOTD TIMEOUT TRANSFER ABORTED);

1;