Help for this page

Select Code to Download


  1. or download this
    use warnings;
use Cache::Memcached;
my $memd = new Cache::Memcached {servers => ["$host:$port"]};
my $stats = $memd->stats();
  2. or download this
    use warnings FATAL => 'all';
  3. or download this
     $SIG{'__WARN__'} = sub { die $_[0]};