The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

SmarTalk - Simple Client-Server Chat

SYNOPSIS

#Server example use strict;

use warnings;

use SmarTalk;

my (%newUser,%setting,$server);

my @country = qw - ENG IT -;

%newUser = (username => "Max", country => "$country[1]");

$server = SmarTalk->new(\%newUser);

%setting = (porta => "9995");

$server->setServer(\%setting);

$server->serverUp();

############***##############

#Client example

use strict;

use warnings;

use SmarTalk;

my (%newUser,%setting,$client);

my @country = qw - GB IT -;

%newUser = (username => "John", country => $country[1]);

$client = SmarTalk->new(\%newUser);

%setting = (server => 'localhost', porta => 9995);

$client->setClient(\%setting);

$client->clientUp();

DESCRIPTION

Simple Client-Server Chat

EXPORT

None by default.

SEE ALSO

AUTHOR

Cladi, <cladi@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2013 by Cladi Di Domenico

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.