Perl Project Improvement(2)Redis and Multi-Threads and Error Handler for System

Perl Project Improvement(2)Redis and Multi-Threads and Error Handler for System

1 Redis Command and Knowledge
Always open this URL for references of all the command
http://redis.io/commands

Here is how we connect and execute some command
> cd ~/tool/redis-stable/
> src/redis-cli -h stage-sillycat-002.sillycat.amazonaws.com -p 6379

Operation on hash value on Redis
> hset source_11  in_process 1
> hget source_11 in_process
> hdel source_11 in_process

I am using these for Redis
use strict;
use warnings;
use Redis;

package lib::RedisClientHandler;

sub init {
  my $configService = &loadService('configService');
  my $logger = &loadLogger();

  my $host = $configService->{redisHost};
  my $port = $configService->{redisPort};

  $logger->debug("init Redis connection-----");
  $logger->debug("host = " . $host);
  $logger->debug("port = " . $port);
  $logger->debug("--------------------------");

  my $redis = Redis->new(server => $host . ":" . $port);

  $logger->debug("RedisSerivce init success " . + $redis);

  my $register = IOC::Registry->instance();
  my $container = $register->getRegisteredContainer('JobsProducer');

  $container->register(IOC::Service->new('redisService'
               => sub { $redis }));

  return 1;
}

I am using set in Redis
sub popTask {
  die "Wrong arguments" if @_ != 1;

  #services
  my $logger = &loadLogger();
  my $redisService = &loadService('redisService');

  #params
  my $key = $_[0];

  my $task = $redisService->spop($key);
  return $task;
}

sub pushTask {
  die "Wrong arguments" if @_ != 2;

  #services
  my $logger = &loadLogger();
  my $redisService = &loadService('redisService');

  #params
  my $key = $_[0];
  my $task = $_[1];

  $redisService->sadd($key, $task);

  return 1;
}

sub checkTask {
  die "Wrong arguments" if @_ != 2;

  #services
  my $logger = &loadLogger();
  my $redisService = &loadService('redisService');

  #params
  my $key = $_[0];
  my $task = $_[1];

  return $redisService->sismember($key, $task);
}

Directly use integer there as well
sub incrCount {
  die "Wrong arguments" if @_ != 1;

  #services
  my $logger = &loadLogger();
  my $redisService = &loadService('redisService');

  #parmas
  my $key = $_[0];

  $redisService->incr($key);

  return 1;
}

sub delCount {
  die "Wrong arguments" if @_ != 1;

  my $logger = &loadLogger();
  my $redisService = &loadService('redisService');

  my $key = $_[0];

  $redisService->del($key);

  return 1;
}

sub getCount {
  die "Wrong arguments" if @_ != 1;

  #services
  my $logger = &loadLogger();
  my $redisService = &loadService('redisService');

  #params
  my $key = $_[0];

  return $redisService->get($key);
}

Multiple Thread DBIx
http://search.cpan.org/~darnold/DBIx-Threaded-0.10/lib/DBIx/Threaded.pm
http://search.cpan.org/~dwheeler/DBIx-Connector-0.53/lib/DBIx/Connector.pm
cpan DBIx::Connector

Multiple Thread is using as well, and then I switched my mysql driver.
use threads;
use threads::shared;
use Time::Piece;
use strict;
use warnings;
use DBI;
use Data::Dumper;
use DBIx::Connector;

Error Handler for System
http://affy.blogspot.com/p5be/ch13.htm
http://www.perlmonks.org/?node_id=486200
http://perldoc.perl.org/functions/system.html

References:
http://search.cpan.org/~dwheeler/DBIx-Connector-0.53/lib/DBIx/Connector.pm