29 lines
793 B
Perl
29 lines
793 B
Perl
|
#
|
||
|
|
# sperl.pl
|
||
|
|
#
|
||
|
|
# Copyright (c) 1999, Tuomas Lukka
|
||
|
|
#
|
||
|
|
# You may use and distribute under the terms of either the GNU Lesser
|
||
|
|
# General Public License, either version 2 of the license or,
|
||
|
|
# at your choice, any later version. Alternatively, you may use and
|
||
|
|
# distribute under the terms of the XPL.
|
||
|
|
#
|
||
|
|
# See the LICENSE.lgpl and LICENSE.xpl files for the specific terms of
|
||
|
|
# the licenses.
|
||
|
|
#
|
||
|
|
# This software is distributed in the hope that it will be useful,
|
||
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the README
|
||
|
|
# file for more details.
|
||
|
|
|
||
|
|
|
||
|
|
use lib ".";
|
||
|
|
use ZZPerlDBServ;
|
||
|
|
use Event loop;
|
||
|
|
|
||
|
|
$s = ZZPerlDBServ->new("S1",3546, "test.db");
|
||
|
|
|
||
|
|
print loop();
|
||
|
|
print "OUT!\n";
|
||
|
|
print $@;
|