r21338 - in /branches/upstream/libmodule-pluggable-fast-perl: ./ current/ current/t/ current/t/lib/ current/t/lib/InnerTest/ current/t/lib/InnerTest/Plugin/ current/t/lib/MyTest/ current/t/lib/MyTest/Extend/ current/t/lib/MyTest/Extend/Plugin/ current/t/lib/MyTest/Plugin/ current/t/lib/MyTest/Plugin/Quux/

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sun Jun 15 14:26:43 UTC 2008


Author: gregoa
Date: Sun Jun 15 14:26:43 2008
New Revision: 21338

URL: http://svn.debian.org/wsvn/?sc=1&rev=21338
Log:
[svn-inject] Installing original source of libmodule-pluggable-fast-perl

Added:
    branches/upstream/libmodule-pluggable-fast-perl/
    branches/upstream/libmodule-pluggable-fast-perl/current/
    branches/upstream/libmodule-pluggable-fast-perl/current/Changes
    branches/upstream/libmodule-pluggable-fast-perl/current/Fast.pm
    branches/upstream/libmodule-pluggable-fast-perl/current/MANIFEST
    branches/upstream/libmodule-pluggable-fast-perl/current/META.yml
    branches/upstream/libmodule-pluggable-fast-perl/current/Makefile.PL
    branches/upstream/libmodule-pluggable-fast-perl/current/README
    branches/upstream/libmodule-pluggable-fast-perl/current/t/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/._01use.t   (with props)
    branches/upstream/libmodule-pluggable-fast-perl/current/t/._02pod.t   (with props)
    branches/upstream/libmodule-pluggable-fast-perl/current/t/._03podcoverage.t   (with props)
    branches/upstream/libmodule-pluggable-fast-perl/current/t/._09require.t   (with props)
    branches/upstream/libmodule-pluggable-fast-perl/current/t/._10innerpack_noinner.t   (with props)
    branches/upstream/libmodule-pluggable-fast-perl/current/t/01use.t
    branches/upstream/libmodule-pluggable-fast-perl/current/t/02pod.t
    branches/upstream/libmodule-pluggable-fast-perl/current/t/03podcoverage.t
    branches/upstream/libmodule-pluggable-fast-perl/current/t/09require.t
    branches/upstream/libmodule-pluggable-fast-perl/current/t/10innerpack_noinner.t
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/InnerTest/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/InnerTest/Plugin/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/InnerTest/Plugin/Foo.pm
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Extend/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Extend/Plugin/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Extend/Plugin/Bar.pm
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Bar.pm
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Foo.pm
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Quux/
    branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Quux/Foo.pm

Added: branches/upstream/libmodule-pluggable-fast-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/Changes?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/Changes (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/Changes Sun Jun 15 14:26:43 2008
@@ -1,0 +1,32 @@
+Revision history for Perl extension Module::Pluggable::Fast
+
+0.18  Fri Dec 16 00:00:00 2005
+
+        - Fixed tests
+
+0.17  Thu Dec 15 00:00:00 2005
+        - Added tests from Module::Pluggable
+        - Updated regex
+        - Fixed to properly die on error messages from components.
+          (Andy Grundman)
+
+0.16  Fri Jun 03 02:47:00 2005
+        - added callback option
+
+0.15  Wen Apr 27 00:00:00 2005
+        - added require option
+
+0.14  Sat Apr 23 16:42:00 2005
+        - die on syntax errors
+
+0.13  Mon Mar 7 20:00:00 2005
+        - fixed prereqs (Juergen Peters)
+
+0.12  Tue Jan 25 20:00:00 2005
+        - fixed dependencies (Marcus Ramberg)
+
+0.11  Mon Dec 20 20:00:00 2004
+        - faster instantiation
+
+0.10  Sun Dec 19 18:00:00 2004
+        - original version.

Added: branches/upstream/libmodule-pluggable-fast-perl/current/Fast.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/Fast.pm?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/Fast.pm (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/Fast.pm Sun Jun 15 14:26:43 2008
@@ -1,0 +1,157 @@
+package Module::Pluggable::Fast;
+
+use strict;
+use vars '$VERSION';
+use UNIVERSAL::require;
+use Carp qw/croak carp/;
+use File::Find ();
+use File::Basename;
+use File::Spec::Functions qw/splitdir catdir abs2rel/;
+
+$VERSION = '0.18';
+
+=head1 NAME
+
+Module::Pluggable::Fast - Fast plugins with instantiation
+
+=head1 SYNOPSIS
+
+    package MyClass;
+    use Module::Pluggable::Fast
+      name   => 'components',
+      search => [ qw/MyClass::Model MyClass::View MyClass::Controller/ ];
+
+    package MyOtherClass;
+    use MyClass;
+    my @components = MyClass->components;
+
+=head1 DESCRIPTION
+
+Similar to C<Module::Pluggable> but instantiates plugins as soon as they're
+found, useful for code generators like C<Class::DBI::Loader>.
+
+=head2 OPTIONS
+
+=head3 name
+
+Name for the exported method.
+Defaults to plugins.
+
+=head3 require
+
+If true, only require plugins.
+
+=head3 callback
+
+Codref to be called instead of the default instantiate callback.
+
+=head3 search
+
+Arrayref containing a list of namespaces to search for plugins.
+Defaults to the ::Plugin:: namespace of the calling class.
+
+=cut 
+
+sub import {
+    my ( $class, %args ) = @_;
+    my $caller = caller;
+    no strict 'refs';
+    *{ "$caller\::" . ( $args{name} || 'plugins' ) } = sub {
+        my $self = shift;
+        $args{search}   ||= ["$caller\::Plugin"];
+        $args{require}  ||= 0;
+        $args{callback} ||= sub {
+            my $plugin = shift;
+            my $obj    = $plugin;
+            eval { $obj = $plugin->new(@_) };
+            carp qq/Couldn't instantiate "$plugin", "$@"/ if $@;
+            return $obj;
+        };
+
+        my %plugins;
+        foreach my $dir ( exists $INC{'blib.pm'} ? grep { /blib/ } @INC : @INC )
+        {
+            foreach my $searchpath ( @{ $args{search} } ) {
+                my $sp = catdir( $dir, ( split /::/, $searchpath ) );
+                next unless ( -e $sp && -d $sp );
+                foreach my $file ( _find_packages($sp) ) {
+                    my ( $name, $directory ) = fileparse $file, qr/\.pm/;
+                    $directory = abs2rel $directory, $sp;
+                    my $plugin = join '::', splitdir catdir $searchpath,
+                      $directory, $name;
+                    $plugin->require;
+                    my $error = $UNIVERSAL::require::ERROR;
+                    die qq/Couldn't load "$plugin", "$error"/ if $error;
+
+                    unless ( $plugins{$plugin} ) {
+                        $plugins{$plugin} =
+                            $args{require}
+                          ? $plugin
+                          : $args{callback}->( $plugin, @_ );
+                    }
+
+                    for my $class ( _list_packages($plugin) ) {
+                        next if $plugins{$class};
+                        $plugins{$class} =
+                            $args{require}
+                          ? $class
+                          : $args{callback}->( $class, @_ );
+                    }
+                }
+            }
+        }
+        return values %plugins;
+    };
+}
+
+sub _find_packages {
+    my $search = shift;
+
+    my @files = ();
+
+    my $wanted = sub {
+        my $path = $File::Find::name;
+        return unless $path =~ /\w+\.pm$/;
+
+        # don't include symbolig links pointing into nowhere
+        # (e.g. emacs lock-files)
+        return if -l $path && !-e $path;
+        $path =~ s#^\\./##;
+        push @files, $path;
+    };
+
+    File::Find::find( { no_chdir => 1, wanted => $wanted }, $search );
+
+    return @files;
+}
+
+sub _list_packages {
+    my $class = shift;
+    $class .= '::' unless $class =~ m!::$!;
+    no strict 'refs';
+    my @classes;
+    for my $subclass ( grep !/^main::$/, grep /::$/, keys %$class ) {
+        $subclass =~ s!::$!!;
+        next if $subclass =~ /^::/;
+        push @classes, "$class$subclass";
+        push @classes, _list_packages("$class$subclass");
+    }
+    return @classes;
+}
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri at cpan.org>
+
+=head1 COPYRIGHT
+
+This program is free software, you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Module::Pluggable>
+
+=cut
+
+1;

Added: branches/upstream/libmodule-pluggable-fast-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/MANIFEST?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/MANIFEST (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/MANIFEST Sun Jun 15 14:26:43 2008
@@ -1,0 +1,16 @@
+Changes
+Fast.pm
+Makefile.PL
+MANIFEST			This list of files
+META.yml
+README
+t/01use.t
+t/02pod.t
+t/03podcoverage.t
+t/09require.t
+t/10innerpack_noinner.t
+t/lib/InnerTest/Plugin/Foo.pm
+t/lib/MyTest/Extend/Plugin/Bar.pm
+t/lib/MyTest/Plugin/Bar.pm
+t/lib/MyTest/Plugin/Foo.pm
+t/lib/MyTest/Plugin/Quux/Foo.pm

Added: branches/upstream/libmodule-pluggable-fast-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/META.yml?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/META.yml (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/META.yml Sun Jun 15 14:26:43 2008
@@ -1,0 +1,12 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
+name:         Module-Pluggable-Fast
+version:      0.18
+version_from: Fast.pm
+installdirs:  site
+requires:
+    File::Find:                    0
+    UNIVERSAL::require:            0
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30

Added: branches/upstream/libmodule-pluggable-fast-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/Makefile.PL?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/Makefile.PL (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/Makefile.PL Sun Jun 15 14:26:43 2008
@@ -1,0 +1,7 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    'NAME'         => 'Module::Pluggable::Fast',
+    'VERSION_FROM' => 'Fast.pm',
+    'PREREQ_PM'    => { UNIVERSAL::require => 0, File::Find => 0 }
+);

Added: branches/upstream/libmodule-pluggable-fast-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/README?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/README (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/README Sun Jun 15 14:26:43 2008
@@ -1,0 +1,35 @@
+NAME
+    Module::Pluggable::Fast - Fast plugins with instantiation
+
+SYNOPSIS
+        package MyClass;
+        use Module::Pluggable::Fast
+          name   => 'components',
+          search => [ qw/MyClass::Model MyClass::View MyClass::Controller/ ];
+
+        package MyOtherClass;
+        use MyClass;
+        my @components = MyClass->components;
+
+DESCRIPTION
+    Similar to "Module::Pluggable" but instantiates plugins as soon as
+    they're found, useful for code generators like "Class::DBI::Loader".
+
+  OPTIONS
+   name
+    Name for the exported method. Defaults to plugins.
+
+   search
+    Arrayref containing a list of namespaces to search for plugins. Defaults
+    to the ::Plugin:: namespace of the calling class.
+
+AUTHOR
+    Sebastian Riedel, "sri at cpan.org"
+
+COPYRIGHT
+    This program is free software, you can redistribute it and/or modify it
+    under the same terms as Perl itself.
+
+SEE ALSO
+    Module::Pluggable
+

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/._01use.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/._01use.t?rev=21338&op=file
==============================================================================
Binary file - no diff available.

Propchange: branches/upstream/libmodule-pluggable-fast-perl/current/t/._01use.t
------------------------------------------------------------------------------
    svn:mime-type = application/octet-stream

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/._02pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/._02pod.t?rev=21338&op=file
==============================================================================
Binary file - no diff available.

Propchange: branches/upstream/libmodule-pluggable-fast-perl/current/t/._02pod.t
------------------------------------------------------------------------------
    svn:mime-type = application/octet-stream

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/._03podcoverage.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/._03podcoverage.t?rev=21338&op=file
==============================================================================
Binary file - no diff available.

Propchange: branches/upstream/libmodule-pluggable-fast-perl/current/t/._03podcoverage.t
------------------------------------------------------------------------------
    svn:mime-type = application/octet-stream

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/._09require.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/._09require.t?rev=21338&op=file
==============================================================================
Binary file - no diff available.

Propchange: branches/upstream/libmodule-pluggable-fast-perl/current/t/._09require.t
------------------------------------------------------------------------------
    svn:mime-type = application/octet-stream

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/._10innerpack_noinner.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/._10innerpack_noinner.t?rev=21338&op=file
==============================================================================
Binary file - no diff available.

Propchange: branches/upstream/libmodule-pluggable-fast-perl/current/t/._10innerpack_noinner.t
------------------------------------------------------------------------------
    svn:mime-type = application/octet-stream

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/01use.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/01use.t?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/01use.t (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/01use.t Sun Jun 15 14:26:43 2008
@@ -1,0 +1,7 @@
+#!perl -wT
+
+use strict;
+use Test::More tests => 1;
+
+use_ok('Module::Pluggable::Fast');
+

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/02pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/02pod.t?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/02pod.t (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/02pod.t Sun Jun 15 14:26:43 2008
@@ -1,0 +1,7 @@
+use Test::More;
+
+eval "use Test::Pod 1.14";
+plan skip_all => 'Test::Pod 1.14 required' if $@;
+plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+
+all_pod_files_ok();

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/03podcoverage.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/03podcoverage.t?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/03podcoverage.t (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/03podcoverage.t Sun Jun 15 14:26:43 2008
@@ -1,0 +1,7 @@
+use Test::More;
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;
+plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+
+all_pod_coverage_ok();

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/09require.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/09require.t?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/09require.t (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/09require.t Sun Jun 15 14:26:43 2008
@@ -1,0 +1,28 @@
+#!perl-wT
+
+use strict;
+use lib 't/lib';
+use Test::More tests => 2;
+
+my $t = MyTest->new();
+
+
+ok($t->plugins());
+
+ok(keys %{MyTest::Plugin::Foo::});
+
+
+package MyTest;
+use File::Spec::Functions qw(catdir);
+use strict;
+use Module::Pluggable::Fast (require => 1);
+use base qw(Module::Pluggable::Fast);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+1;
+

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/10innerpack_noinner.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/10innerpack_noinner.t?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/10innerpack_noinner.t (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/10innerpack_noinner.t Sun Jun 15 14:26:43 2008
@@ -1,0 +1,33 @@
+#!perl-wT
+
+use strict;
+use lib 't/lib';
+use Test::More tests => 3;
+
+
+
+my $t = InnerTest->new();
+
+my %plugins = map { $_ => 1 } $t->plugins;
+
+ok(keys %plugins, "Got some plugins");
+ok($plugins{'InnerTest::Plugin::Foo'}, "Got Foo");
+ok(!$plugins{'InnerTest::Plugin::Bar'}, "Didn't get Bar - the inner package");
+
+
+
+package InnerTest;
+use strict;
+use Module::Pluggable::Fast require => 1, inner => 0;
+use base qw(Module::Pluggable::Fast);
+
+
+sub new {
+    my $class = shift;
+    return bless {}, $class;
+
+}
+
+
+1;
+

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/InnerTest/Plugin/Foo.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/InnerTest/Plugin/Foo.pm?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/InnerTest/Plugin/Foo.pm (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/InnerTest/Plugin/Foo.pm Sun Jun 15 14:26:43 2008
@@ -1,0 +1,7 @@
+package InnerTest::Plugin::Foo;
+use strict;
+
+package InnerTest::Plugin::Bar;
+use strict;
+
+1;

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Extend/Plugin/Bar.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Extend/Plugin/Bar.pm?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Extend/Plugin/Bar.pm (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Extend/Plugin/Bar.pm Sun Jun 15 14:26:43 2008
@@ -1,0 +1,17 @@
+package MyTest::Extend::Plugin::Bar;
+use strict;
+
+sub new {
+	my $class = shift;
+	my %self = @_;
+
+	return bless \%self, $class;
+}
+
+
+sub nork {
+	return $_[0]->{'nork'};
+}
+1;
+
+

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Bar.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Bar.pm?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Bar.pm (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Bar.pm Sun Jun 15 14:26:43 2008
@@ -1,0 +1,9 @@
+package MyTest::Plugin::Bar;
+
+
+use strict;
+
+
+1;
+
+

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Foo.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Foo.pm?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Foo.pm (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Foo.pm Sun Jun 15 14:26:43 2008
@@ -1,0 +1,9 @@
+package MyTest::Plugin::Foo;
+
+
+use strict;
+
+
+1;
+
+

Added: branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Quux/Foo.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Quux/Foo.pm?rev=21338&op=file
==============================================================================
--- branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Quux/Foo.pm (added)
+++ branches/upstream/libmodule-pluggable-fast-perl/current/t/lib/MyTest/Plugin/Quux/Foo.pm Sun Jun 15 14:26:43 2008
@@ -1,0 +1,9 @@
+package MyTest::Plugin::Quux::Foo;
+
+
+use strict;
+
+
+1;
+
+




More information about the Pkg-perl-cvs-commits mailing list