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.