r13891 - in /branches/upstream/libmodule-find-perl: ./ current/ current/examples/ current/t/ current/test/ current/test/ModuleFindTest/ current/test/ModuleFindTest/SubMod/ current/test/duplicates/ current/test/duplicates/ModuleFindTest/ current/test/duplicates/ModuleFindTest/SubMod/
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Thu Jan 31 13:26:47 UTC 2008
Author: eloy
Date: Thu Jan 31 13:26:47 2008
New Revision: 13891
URL: http://svn.debian.org/wsvn/?sc=1&rev=13891
Log:
[svn-inject] Installing original source of libmodule-find-perl
Added:
branches/upstream/libmodule-find-perl/
branches/upstream/libmodule-find-perl/current/
branches/upstream/libmodule-find-perl/current/Changes
branches/upstream/libmodule-find-perl/current/Find.pm
branches/upstream/libmodule-find-perl/current/MANIFEST
branches/upstream/libmodule-find-perl/current/MANIFEST.skip
branches/upstream/libmodule-find-perl/current/META.yml
branches/upstream/libmodule-find-perl/current/Makefile.PL
branches/upstream/libmodule-find-perl/current/README
branches/upstream/libmodule-find-perl/current/examples/
branches/upstream/libmodule-find-perl/current/examples/example.pl
branches/upstream/libmodule-find-perl/current/t/
branches/upstream/libmodule-find-perl/current/t/1-use.t
branches/upstream/libmodule-find-perl/current/t/2-find.t
branches/upstream/libmodule-find-perl/current/t/3-usesub.t
branches/upstream/libmodule-find-perl/current/t/4-useall.t
branches/upstream/libmodule-find-perl/current/t/5-setmoduledirs.t
branches/upstream/libmodule-find-perl/current/t/6-duplicate-modules.t
branches/upstream/libmodule-find-perl/current/t/pod-coverage.t
branches/upstream/libmodule-find-perl/current/t/pod.t
branches/upstream/libmodule-find-perl/current/test/
branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/
branches/upstream/libmodule-find-perl/current/test/ModuleFindTest.pm
branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod/
branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod.pm
branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod/SubSubMod.pm
branches/upstream/libmodule-find-perl/current/test/README
branches/upstream/libmodule-find-perl/current/test/duplicates/
branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/
branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest.pm
branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod/
branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod.pm
branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
Added: branches/upstream/libmodule-find-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/Changes?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/Changes (added)
+++ branches/upstream/libmodule-find-perl/current/Changes Thu Jan 31 13:26:47 2008
@@ -1,0 +1,30 @@
+HISTORY
+ 0.01, 2004-04-22
+ Original version; created by h2xs 1.22
+
+ 0.02, 2004-05-25
+ Added test modules that were left out in the first version.
+ Thanks to Stuart Johnston for alerting me to this.
+
+ 0.03, 2004-06-18
+ Fixed a bug (non-localized $_) by declaring a loop variable in
+ use functions. Thanks to Stuart Johnston for alerting me to this
+ and providing a fix.
+
+ Fixed non-platform compatibility by using File::Spec. Thanks to
+ brian d foy.
+
+ Added setmoduledirs and updated tests. Idea shamelessly stolen
+ from ...errm... inspired by brian d foy.
+
+ 0.04, 2005-05-20
+ Added POD tests.
+
+ 0.05, 2005-11-30
+ Fixed issue with bugfix in PathTools-3.14.
+
+ 0.06, 2008-01-26
+ Module::Find now won't report duplicate modules several times
+ anymore (thanks to Uwe Všlker for the report and the patch)
+
+
Added: branches/upstream/libmodule-find-perl/current/Find.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/Find.pm?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/Find.pm (added)
+++ branches/upstream/libmodule-find-perl/current/Find.pm Thu Jan 31 13:26:47 2008
@@ -1,0 +1,249 @@
+package Module::Find;
+
+use 5.006001;
+use strict;
+use warnings;
+
+use File::Spec;
+use File::Find;
+
+our $VERSION = '0.06';
+
+our $basedir = undef;
+our @results = ();
+our $prune = 0;
+
+our @ISA = qw(Exporter);
+
+our @EXPORT = qw(findsubmod findallmod usesub useall setmoduledirs);
+
+=head1 NAME
+
+Module::Find - Find and use installed modules in a (sub)category
+
+=head1 SYNOPSIS
+
+ use Module::Find;
+
+ # use all modules in the Plugins/ directory
+ @found = usesub Mysoft::Plugins;
+
+ # use modules in all subdirectories
+ @found = useall Mysoft::Plugins;
+
+ # find all DBI::... modules
+ @found = findsubmod DBI;
+
+ # find anything in the CGI/ directory
+ @found = findallmod CGI;
+
+ # set your own search dirs (uses @INC otherwise)
+ setmoduledirs(@INC, @plugindirs, $appdir);
+
+=head1 DESCRIPTION
+
+Module::Find lets you find and use modules in categories. This can be very
+useful for auto-detecting driver or plugin modules. You can differentiate
+between looking in the category itself or in all subcategories.
+
+If you want Module::Find to search in a certain directory on your
+harddisk (such as the plugins directory of your software installation),
+make sure you modify C<@INC> before you call the Module::Find functions.
+
+=head1 FUNCTIONS
+
+=over
+
+=item C<setmoduledirs(@directories)>
+
+Sets the directories to be searched for modules. If not set, Module::Find
+will use @INC. If you use this function, @INC will I<not> be included
+automatically, so add it if you want it. Set to undef to revert to
+default behaviour.
+
+=cut
+
+sub setmoduledirs {
+ return @Module::Find::ModuleDirs = @_;
+}
+
+=item C<@found = findsubmod Module::Category>
+
+Returns modules found in the Module/Category subdirectories of your perl
+installation. E.g. C<findsubmod CGI> will return C<CGI::Session>, but
+not C<CGI::Session::File> .
+
+=cut
+
+sub findsubmod(*) {
+ $prune = 1;
+
+ return _find($_[0]);
+}
+
+=item C<@found = findallmod Module::Category>
+
+Returns modules found in the Module/Category subdirectories of your perl
+installation. E.g. C<findallmod CGI> will return C<CGI::Session> and also
+C<CGI::Session::File> .
+
+=cut
+
+sub findallmod(*) {
+ $prune = 0;
+
+ return _find($_[0]);
+}
+
+=item C<@found = usesub Module::Category>
+
+Uses and returns modules found in the Module/Category subdirectories of your perl
+installation. E.g. C<usesub CGI> will return C<CGI::Session>, but
+not C<CGI::Session::File> .
+
+=cut
+
+sub usesub(*) {
+ $prune = 1;
+
+ my @r = _find($_[0]);
+
+ foreach my $m (@r) {
+ eval " require $m; import $m ; ";
+ die $@ if $@;
+ }
+
+ return @r;
+}
+
+=item C<@found = useall Module::Category>
+
+Uses and returns modules found in the Module/Category subdirectories of your perl
+installation. E.g. C<useall CGI> will return C<CGI::Session> and also
+C<CGI::Session::File> .
+
+=cut
+
+sub useall(*) {
+ $prune = 0;
+
+ my @r = _find($_[0]);
+
+ foreach my $m (@r) {
+ eval " require $m; import $m; ";
+ die $@ if $@;
+ }
+
+ return @r;
+}
+
+# 'wanted' functions for find()
+# you know, this would be a nice application for currying...
+sub _wanted {
+ my $name = File::Spec->abs2rel($_, $basedir);
+ return unless $name && $name ne File::Spec->curdir();
+
+ if (-d && $prune) {
+ $File::Find::prune = 1;
+ return;
+ }
+
+ return unless /\.pm$/ && -r;
+
+ $name =~ s|\.pm$||;
+ $name = join('::', File::Spec->splitdir($name));
+
+ push @results, $name;
+}
+
+
+# helper functions for finding files
+
+sub _find(*) {
+ my ($category) = @_;
+ return undef unless defined $category;
+
+ my $dir = File::Spec->catdir(split(/::/, $category));
+
+ my @dirs;
+ if (defined @Module::Find::ModuleDirs) {
+ @dirs = map { File::Spec->catdir($_, $dir) }
+ @Module::Find::ModuleDirs;
+ } else {
+ @dirs = map { File::Spec->catdir($_, $dir) } @INC;
+ }
+ @results = ();
+
+ foreach $basedir (@dirs) {
+ next unless -d $basedir;
+
+ find({wanted => \&_wanted,
+ no_chdir => 1}, $basedir);
+ }
+
+ # filter duplicate modules
+ my %seen = ();
+ @results = grep { not $seen{$_}++ } @results;
+
+ @results = map "$category\::$_", @results;
+ return @results;
+}
+
+=back
+
+=head1 HISTORY
+
+=over 8
+
+=item 0.01, 2004-04-22
+
+Original version; created by h2xs 1.22
+
+=item 0.02, 2004-05-25
+
+Added test modules that were left out in the first version. Thanks to
+Stuart Johnston for alerting me to this.
+
+=item 0.03, 2004-06-18
+
+Fixed a bug (non-localized $_) by declaring a loop variable in use functions.
+Thanks to Stuart Johnston for alerting me to this and providing a fix.
+
+Fixed non-platform compatibility by using File::Spec.
+Thanks to brian d foy.
+
+Added setmoduledirs and updated tests. Idea shamelessly stolen from
+...errm... inspired by brian d foy.
+
+=item 0.04, 2005-05-20
+
+Added POD tests.
+
+=item 0.05, 2005-11-30
+
+Fixed issue with bugfix in PathTools-3.14.
+
+=item 0.06, 2008-01-26
+
+Module::Find now won't report duplicate modules several times anymore (thanks to Uwe Všlker for the report and the patch)
+
+=back
+
+=head1 SEE ALSO
+
+L<perl>
+
+=head1 AUTHOR
+
+Christian Renz, E<lt>crenz at web42.comE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2004-2008 by Christian Renz <crenz at web42.com>. All rights reserved.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;
Added: branches/upstream/libmodule-find-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/MANIFEST?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/MANIFEST (added)
+++ branches/upstream/libmodule-find-perl/current/MANIFEST Thu Jan 31 13:26:47 2008
@@ -1,0 +1,23 @@
+Changes
+examples/example.pl
+Find.pm
+Makefile.PL
+MANIFEST
+MANIFEST.skip
+META.yml Module meta-data (added by MakeMaker)
+README
+t/1-use.t
+t/2-find.t
+t/3-usesub.t
+t/4-useall.t
+t/5-setmoduledirs.t
+t/6-duplicate-modules.t
+t/pod-coverage.t
+t/pod.t
+test/duplicates/ModuleFindTest.pm
+test/duplicates/ModuleFindTest/SubMod.pm
+test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
+test/ModuleFindTest.pm
+test/ModuleFindTest/SubMod.pm
+test/ModuleFindTest/SubMod/SubSubMod.pm
+test/README
Added: branches/upstream/libmodule-find-perl/current/MANIFEST.skip
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/MANIFEST.skip?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/MANIFEST.skip (added)
+++ branches/upstream/libmodule-find-perl/current/MANIFEST.skip Thu Jan 31 13:26:47 2008
@@ -1,0 +1,9 @@
+~$
+\.svn
+\.DS_Store
+\.bak
+\.old
+dist
+\.tar.gz$
+blib
+Makefile$
Added: branches/upstream/libmodule-find-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/META.yml?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/META.yml (added)
+++ branches/upstream/libmodule-find-perl/current/META.yml Thu Jan 31 13:26:47 2008
@@ -1,0 +1,19 @@
+--- #YAML:1.0
+name: Module-Find
+version: 0.06
+abstract: Find and use installed modules in a (sub)category
+license: perl
+author:
+ - Christian Renz <crenz at web42.com>
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
+ File::Find: 0
+ File::Spec: 0
+ Test::More: 0
+build_requires:
+ Test::Pod: 1.14
+ Test::Pod::Coverage: 1.04
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Added: branches/upstream/libmodule-find-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/Makefile.PL?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/Makefile.PL (added)
+++ branches/upstream/libmodule-find-perl/current/Makefile.PL Thu Jan 31 13:26:47 2008
@@ -1,0 +1,16 @@
+use 5.006001;
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+ NAME => 'Module::Find',
+ VERSION_FROM => 'Find.pm', # finds $VERSION
+ PREREQ_PM => {
+ 'Test::More' => 0,
+ 'File::Find' => 0,
+ 'File::Spec' => 0},
+ ABSTRACT_FROM => 'Find.pm', # retrieve abstract from module
+ AUTHOR => 'Christian Renz <crenz at web42.com>',
+ LICENSE => 'perl',
+ NO_META => 1 # or else our build prereqs will be gone
+);
Added: branches/upstream/libmodule-find-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/README?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/README (added)
+++ branches/upstream/libmodule-find-perl/current/README Thu Jan 31 13:26:47 2008
@@ -1,0 +1,31 @@
+Module::Find version 0.05
+=========================
+
+Module::Find lets you find and use modules in categories. This can be very
+useful for auto-detecting driver or plugin modules. You can differentiate
+between looking in the category itself or in all subcategories.
+
+INSTALLATION
+
+To install this module type the following:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+DEPENDENCIES
+
+This module requires these other modules and libraries:
+
+ Test::More
+ File::Spec
+ File::Find
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2004-2005 Christian Renz <crenz at web42.com>. All rights reserved.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
Added: branches/upstream/libmodule-find-perl/current/examples/example.pl
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/examples/example.pl?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/examples/example.pl (added)
+++ branches/upstream/libmodule-find-perl/current/examples/example.pl Thu Jan 31 13:26:47 2008
@@ -1,0 +1,16 @@
+use Module::Find;
+
+# use all modules in the Plugins/ directory
+ at found = usesub Mysoft::Plugins;
+
+# use modules in all subdirectories
+ at found = useall Mysoft::Plugins;
+
+# find all DBI::... modules
+ at found = findsubmod DBI;
+
+# find anything in the CGI/ directory
+ at found = findallmod CGI;
+
+# set your own search dirs (uses @INC otherwise)
+setmoduledirs(@INC, @plugindirs, $appdir);
Added: branches/upstream/libmodule-find-perl/current/t/1-use.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/t/1-use.t?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/t/1-use.t (added)
+++ branches/upstream/libmodule-find-perl/current/t/1-use.t Thu Jan 31 13:26:47 2008
@@ -1,0 +1,4 @@
+use Test::More tests => 1;
+
+BEGIN { use_ok('Module::Find') };
+
Added: branches/upstream/libmodule-find-perl/current/t/2-find.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/t/2-find.t?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/t/2-find.t (added)
+++ branches/upstream/libmodule-find-perl/current/t/2-find.t Thu Jan 31 13:26:47 2008
@@ -1,0 +1,22 @@
+use Test::More tests => 5;
+
+use Module::Find;
+
+use lib qw(./test);
+
+my @l;
+
+ at l = findsubmod ModuleFindTest;
+
+ok($#l == 0);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+
+ at l = findallmod ModuleFindTest;
+
+ok($#l == 1);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
+
+
+
+
Added: branches/upstream/libmodule-find-perl/current/t/3-usesub.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/t/3-usesub.t?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/t/3-usesub.t (added)
+++ branches/upstream/libmodule-find-perl/current/t/3-usesub.t Thu Jan 31 13:26:47 2008
@@ -1,0 +1,24 @@
+use Test::More tests => 4;
+
+use Module::Find;
+
+use lib qw(./test);
+
+my @l;
+
+ at l = usesub ModuleFindTest;
+
+ok($#l == 0);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($ModuleFindTest::SubMod::loaded);
+ok(!$ModuleFindTest::SubMod::SubSubMod::loaded);
+
+package ModuleFindTest::SubMod;
+
+$ModuleFindTest::SubMod::loaded = 0;
+
+package ModuleFindTest::SubSubMod;
+
+$ModuleFindTest::SubMod::SubSubMod::loaded = 0;
+
+
Added: branches/upstream/libmodule-find-perl/current/t/4-useall.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/t/4-useall.t?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/t/4-useall.t (added)
+++ branches/upstream/libmodule-find-perl/current/t/4-useall.t Thu Jan 31 13:26:47 2008
@@ -1,0 +1,27 @@
+use Test::More tests => 5;
+
+use Module::Find;
+
+use lib qw(./test);
+
+my @l;
+
+ at l = useall ModuleFindTest;
+
+ok($#l == 1);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
+ok($ModuleFindTest::SubMod::loaded);
+ok($ModuleFindTest::SubMod::SubSubMod::loaded);
+
+package ModuleFindTest::SubMod;
+
+$ModuleFindTest::SubMod::loaded = 0;
+
+package ModuleFindTest::SubSubMod;
+
+$ModuleFindTest::SubMod::SubSubMod::loaded = 0;
+
+
+
+
Added: branches/upstream/libmodule-find-perl/current/t/5-setmoduledirs.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/t/5-setmoduledirs.t?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/t/5-setmoduledirs.t (added)
+++ branches/upstream/libmodule-find-perl/current/t/5-setmoduledirs.t Thu Jan 31 13:26:47 2008
@@ -1,0 +1,38 @@
+use Test::More tests => 9;
+
+use Module::Find;
+
+# First, with @INC only
+
+ at l = findsubmod ModuleFindTest;
+ok($#l == -1);
+
+ at l = findallmod ModuleFindTest;
+ok($#l == -1);
+
+# Then, including our directory
+
+setmoduledirs('./test');
+
+ at l = findsubmod ModuleFindTest;
+ok($#l == 0);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+
+ at l = findallmod ModuleFindTest;
+ok($#l == 1);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
+
+# Third, reset to @INC only
+
+setmoduledirs();
+
+ at l = findsubmod ModuleFindTest;
+ok($#l == -1);
+
+ at l = findallmod ModuleFindTest;
+ok($#l == -1);
+
+# Then, including our directory
+
+
Added: branches/upstream/libmodule-find-perl/current/t/6-duplicate-modules.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/t/6-duplicate-modules.t?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/t/6-duplicate-modules.t (added)
+++ branches/upstream/libmodule-find-perl/current/t/6-duplicate-modules.t Thu Jan 31 13:26:47 2008
@@ -1,0 +1,9 @@
+use Test::More tests => 1;
+
+use Module::Find;
+
+use lib qw(./test ./test/duplicates);
+
+# Ensure duplicate modules are only reported once
+my @l = useall ModuleFindTest;
+ok($#l == 1);
Added: branches/upstream/libmodule-find-perl/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/t/pod-coverage.t?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/t/pod-coverage.t (added)
+++ branches/upstream/libmodule-find-perl/current/t/pod-coverage.t Thu Jan 31 13:26:47 2008
@@ -1,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok();
Added: branches/upstream/libmodule-find-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/t/pod.t?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/t/pod.t (added)
+++ branches/upstream/libmodule-find-perl/current/t/pod.t Thu Jan 31 13:26:47 2008
@@ -1,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();
Added: branches/upstream/libmodule-find-perl/current/test/ModuleFindTest.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/test/ModuleFindTest.pm?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/test/ModuleFindTest.pm (added)
+++ branches/upstream/libmodule-find-perl/current/test/ModuleFindTest.pm Thu Jan 31 13:26:47 2008
@@ -1,0 +1,3 @@
+package ModuleFindTest;
+
+$ModuleFindTest::loaded = 1;
Added: branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod.pm?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod.pm (added)
+++ branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod.pm Thu Jan 31 13:26:47 2008
@@ -1,0 +1,3 @@
+package ModuleFindTest::SubMod;
+
+$ModuleFindTest::SubMod::loaded = 1;
Added: branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod/SubSubMod.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod/SubSubMod.pm?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod/SubSubMod.pm (added)
+++ branches/upstream/libmodule-find-perl/current/test/ModuleFindTest/SubMod/SubSubMod.pm Thu Jan 31 13:26:47 2008
@@ -1,0 +1,3 @@
+package ModuleFindTest::SubMod::SubSubMod;
+
+$ModuleFindTest::SubMod::SubSubMod::loaded = 1;
Added: branches/upstream/libmodule-find-perl/current/test/README
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/test/README?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/test/README (added)
+++ branches/upstream/libmodule-find-perl/current/test/README Thu Jan 31 13:26:47 2008
@@ -1,0 +1,5 @@
+This folder contains a few module files to test the functionality of
+Module::Find.
+
+Use "make test" to run the tests.
+
Added: branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest.pm?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest.pm (added)
+++ branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest.pm Thu Jan 31 13:26:47 2008
@@ -1,0 +1,3 @@
+package ModuleFindTest;
+
+$ModuleFindTest::loaded = 1;
Added: branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod.pm?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod.pm (added)
+++ branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod.pm Thu Jan 31 13:26:47 2008
@@ -1,0 +1,3 @@
+package ModuleFindTest::SubMod;
+
+$ModuleFindTest::SubMod::loaded = 1;
Added: branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm?rev=13891&op=file
==============================================================================
--- branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm (added)
+++ branches/upstream/libmodule-find-perl/current/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm Thu Jan 31 13:26:47 2008
@@ -1,0 +1,3 @@
+package ModuleFindTest::SubMod::SubSubMod;
+
+$ModuleFindTest::SubMod::SubSubMod::loaded = 1;
More information about the Pkg-perl-cvs-commits
mailing list