Changeset 22473

Timestamp:

11/01/08 10:36:11 (5 years ago)

Author:

oinume

Message:

[lang/perl/CGI-Session-Driver-memcached] shipit

Location:

lang/perl/CGI-Session-Driver-memcached/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/CGI/Session/Driver/memcached.pm (modified) (4 diffs)
• t/g4_memcached.t (modified) (2 diffs)

lang/perl/CGI-Session-Driver-memcached/trunk/Makefile.PL

@@ -2 +2 @@
 
 use strict;
-use Text::Wrap;
-use File::Spec;
 use lib './t/lib';
 use ExtUtils::MakeMaker;
+
+my $has_fast = 0;
+my $message = '';
+eval "require Cache::Memcached::Fast";
+unless ($@) {
+    $has_fast = 1;
+}
+
+my %prereq_pm = (
+    'CGI::Session'       => 4.00,
+    'Test::More'         => undef,
+);
+if ($has_fast) {
+    print "[info] You have Cache::Memcached::Fast, so CGI::Session::Driver::memcached may work very fast!!\n";
+}
+else {
+    print "[info] If you install Cache::Memcached::Fast, it makes CGI::Session::Driver::memcached faster.\n";
+    $prereq_pm{'Cache::Memcached'} = undef;
+}
 
 WriteMakefile(
     NAME            => 'CGI::Session::Driver::memcached',
     VERSION_FROM    => 'lib/CGI/Session/Driver/memcached.pm',
-    PREREQ_PM       => {
-        'Cache::Memcached'   => undef,
-        'CGI::Session'       => 4.00,
-        'Test::More'         => undef,
-    },
+    PREREQ_PM       => \%prereq_pm,
     ABSTRACT        => 'Persistent session data in CGI applications',
     AUTHOR          => 'Kazuhiro Oinuma <oinume@cpan.org>',

lang/perl/CGI-Session-Driver-memcached/trunk/lib/CGI/Session/Driver/memcached.pm

@@ -9 +9 @@
 
 @CGI::Session::Driver::memcached::ISA = ( "CGI::Session::Driver" );
-$CGI::Session::Driver::memcached::VERSION = "0.02";
+$CGI::Session::Driver::memcached::VERSION = "0.03";
 
 sub init {
@@ -89 +89 @@
         compress_threshold => 10_000,
     });
-    $s = new CGI::Session( "driver:memcached", $sid, { Memcached => $memcached } );
+    $s = CGI::Session( "driver:memcached", $sid, { Memcached => $memcached } )->new;
 
 =head1 DESCRIPTION
@@ -105 +105 @@
 =item L<CGI::Session>
 
-=item L<Cache::Memcached>
+=item L<Cache::Memcached> or L<Cache::Memcached::Fast>
 
 =back
@@ -125 +125 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2005 - 2006 Kazuhiro Oinuma <oinume@cpan.org>. All rights reserved. This library is free software. You can modify and or distribute it under the same terms as Perl itself.
+Copyright (C) 2005 - 2008 Kazuhiro Oinuma <oinume@cpan.org>. All rights reserved. This library is free software. You can modify and or distribute it under the same terms as Perl itself.
 
 =cut

lang/perl/CGI-Session-Driver-memcached/trunk/t/g4_memcached.t

@@ -3 +3 @@
 use strict;
 use diagnostics;
+use Test::More;
+use IO::Socket::INET;
+use FindBin qw($Bin);
+use lib "$Bin/../lib";
 
-my @servers = ('localhost:11211');
-if ($ENV{CGISESS_MEMCACHED_SERVERS}) {
-    @servers = split ':', $ENV{CGISESS_MEMCACHED_SERVERS};
+my $server = '127.0.0.1:11211';
+my @servers = ();
+if (exists $ENV{CGISESS_MEMCACHED_SERVERS}) {
+    @servers = split ' ', $ENV{CGISESS_MEMCACHED_SERVERS};
 }
+else {
+    @servers = ($server);
+}
+
+for my $s (@servers) {
+    my $sock = IO::Socket::INET->new(
+        PeerAddr => $s,
+        Timeout => 2,
+    );
+    if (!$sock) {
+        plan(skip_all => "No memcached instance running at $s\n");
+        exit 0;
+    }
+}
+
 
 for (qw(Cache::Memcached)) {
@@ -17 +37 @@
 }
 
-use Test::More;
 use CGI::Session::Test::Default;
-
 my $memcached = Cache::Memcached->new({
     servers => \@servers,