Throughput
Throughput is a library that provides abstraction for sockets, logging, and simple configuration.
Download
Download Throughput
Usage
To set up your development environment for Throughput, you'll need to put the contents of Throughput.tgz in your perl include directory or put the Throughput directory in the same directory as the application you are developing.
Config.pm
use Throughput::Config qw(parse);
my %config = Throughput::parse('config.conf');
|
- The config file should be formatted as:
variable=value # comment
- The %config hash will return as :
Log.pm
my $logger = new Log();
$logger->error("an error has occured");
|
- Output defaults to STDERR but can be set to files in the constructor or using accessors.
$logger->error_log($filehandle);
|
- Log also supports info, warn and digest:
$logger->info("info message");
$logger->warn("warning!");
$logger->info_log($filehandle);
$logger->warn_log($filehandle);
|
There is also a digest log, which is never called externally, but the output of info warn and error are all outputted to the digest file, set with:
$logger->digest_log($filehandle);
|
Server.pm
Notice: This segment will be updated with documentation in the next 24 hours; apologies for the delay. The code itself has been completed and seasoned perl developers should be able to implement it quickly.
