view release on metacpan or  search on metacpan

Server/RaveMPServer.pm  view on Meta::CPAN

},
);

sub allow {
    my $self = shift;
    push @allow, @_;
}

sub new {
    my $class = shift;
    $class->SUPER::new({'pidfile' => 'none',
			'clients' => \@allow,
			'mode' => 'single', #non-forking mode
			'logfile' => 'STDERR', #XXX
			'localport' => $PORT}, []);
}

sub start {
    my $server = Audio::RaveMPDaemon->new;

    $server->Bind();