examples/test-server
changeset 13 d6f681329542
parent 12 ad264ee5d5ba
child 14 7ccc679ac5db
equal deleted inserted replaced
12:ad264ee5d5ba 13:d6f681329542
     6 
     6 
     7 use strict;
     7 use strict;
     8 use warnings;
     8 use warnings;
     9 use POSIX qw(tmpnam);
     9 use POSIX qw(tmpnam);
    10 use Getopt::Long;
    10 use Getopt::Long;
    11 
       
    12 use blib;
       
    13 use Quancom::Test::Server;
    11 use Quancom::Test::Server;
    14 
    12 
    15 $SIG{INT} = sub { warn "got INT, exit now\n"; exit 0; };
    13 $SIG{INT} = sub { warn "got INT, exit now\n"; exit 0; };
    16 
    14 
    17 my $opt_socket = 0;
    15 my $server = new Quancom::Test::Server @ARGV ? $ARGV[0] : tmpnam();
    18 
       
    19 GetOptions("socket!" => \$opt_socket)
       
    20   or die "wrong option!\n";
       
    21 
       
    22 my $server = new Quancom::Test::Server $opt_socket ? tmpnam() : ();
       
    23 $server->run;
    16 $server->run;