Attachment #103580 for bug #143527

View | Details | Raw Unified | Return to bug 143527
Collapse All | Expand All

Lines 6-12 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/Makefile (-1 / +1 lines)
6	#	6	#
7		7
8	PORTNAME= Test-Module-Used	8	PORTNAME= Test-Module-Used
9	PORTVERSION= 0.1.8	9	PORTVERSION= 0.1.9
10	CATEGORIES= devel perl5	10	CATEGORIES= devel perl5
11	MASTER_SITES= CPAN	11	MASTER_SITES= CPAN
12	PKGNAMEPREFIX= p5-	12	PKGNAMEPREFIX= p5-

Lines 1-3 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/distinfo (-3 / +3 lines)
1	MD5 (Test-Module-Used-0.1.8.tar.gz) = 4fe2c075f39832e15cfecbde06dd38c0	1	MD5 (Test-Module-Used-0.1.9.tar.gz) = b8dde9e0e427e01cefe89b3491792ebd
2	SHA256 (Test-Module-Used-0.1.8.tar.gz) = 91d31fa0cfa053f816f4ca49eee0ddfeff2ae98d86184e8717d1d9e887cbd0b2	2	SHA256 (Test-Module-Used-0.1.9.tar.gz) = 58d3926006f0b756a0f9ff3379a87f28cf2ed8988a8c0e944643623249e24487
3	SIZE (Test-Module-Used-0.1.8.tar.gz) = 20781	3	SIZE (Test-Module-Used-0.1.9.tar.gz) = 20867

Lines 1-3 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/.PLIST.flattened (-3 lines)
1	/usr/local/lib/perl5/5.10.1/man/man3/Test::Module::Used.3.gz
2	/usr/local/lib/perl5/site_perl/5.10.1/Test/Module/Used.pm
3	/usr/local/lib/perl5/site_perl/5.10.1/mach/auto/Test/Module/Used/.packlist

Lines 1-7 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/.PLIST.mktmp (-7 lines)
1	lib/perl5/5.10.1/man/man3/Test::Module::Used.3.gz
2	@unexec rm -f %D/lib/perl5/5.10.1/man/cat3/Test::Module::Used.3.gz %D/lib/perl5/5.10.1/man/cat3/Test::Module::Used.3 %D/lib/perl5/5.10.1/man/cat3/Test::Module::Used.3.gz %D/lib/perl5/5.10.1/man/cat3/Test::Module::Used.3.gz.gz %D/lib/perl5/5.10.1/man/cat3/Test::Module::Used.3.gz.bz2
3	lib/perl5/site_perl/5.10.1/Test/Module/Used.pm
4	lib/perl5/site_perl/5.10.1/mach/auto/Test/Module/Used/.packlist
5	@dirrm lib/perl5/site_perl/5.10.1/mach/auto/Test/Module/Used
6	@unexec rmdir %D/lib/perl5/site_perl/5.10.1/mach/auto/Test/Module 2>/dev/null \|\| true
7	@unexec rmdir %D/lib/perl5/site_perl/5.10.1/Test/Module 2>/dev/null \|\| true




2010-01-12  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.1.8
	remove executable permission in Makefile.PL

2010-01-03  Takuya Tsuchida  <tsucchi@cpan.org>
	* 0.1.7
	add repository in Makefile.PL
	(merge from git://github.com/cpanservice/Test-Module-Used.git)
	
	* 0.1.6
	fix: add copyright information(for RT#53290)

2009-12-30  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.1.5
	fix: insufficient version of version.pm specified.

2009-12-25  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.1.4
	improve error messages when test fails.

2009-12-24  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.1.3_02
	fix: POD structure(chaptering) is insufficient.


2009-12-24  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.1.3_01
	deprecated parameters are deleted
	read perl version from META.yml and NOT from *.pm

2009-12-09  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.1.2
	add parameter 'test_lib_dir' in constructor
	and automatically push exclude_in_testdir to modules which are in
	test_lib_dir.

2009-12-07  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.1.1
	fix: failed if package statement doesn't exist in *.pm file.

2009-12-07  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.1.0
	fix: fix again test failed in windows environment
	remove all slash directory separator, and instead of using catfile().

2009-12-04  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.9
	fix: test failed in windows environment

2009-12-02  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.8
	implement push_exclude_in_{test,module}dir(), it enables
	set exclude_in_{test,module}dir after new()

2009-12-01  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.7
	fix: bugs in version fetching from file.

2009-11-29  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.6
	refactoring methods and some optimization
	find bug in handling core module

2009-11-28  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.5
	fix: test faild in windows environment

2009-11-27  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.4
	found bug in ok(module_requires exclude)
	add build_requires and requires exclusion in constructor
	

2009-11-24  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.3
	add ChangeLog and README
	describe about perl_version
	bug fix (failed when test is empty)
	parse perlversion using Perl::MinimumVersion

2009-11-23  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.2
	fix insufficient index(set no_index to testdata)

	
2009-11-22  Takuya Tsuchida  <tsucchi@cpan.org>

	* 0.0.1
	initial release





ChangeLog
inc/Module/Install.pm
inc/Module/Install/AuthorTests.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
lib/Test/Module/Used.pm
Makefile.PL
MANIFEST			This list of files
META.yml
README
t/001_use_ok.t
t/002_default.t
t/003_option.t
t/004_used_ok.t
t/005_used_module.t
t/006_read_meta_yml.t
t/007_test_myself.t
t/008_test_is_empty.t
t/009_auto_get_exclude.t
t/010_test_myself2.t
testdata/lib/SampleModule.pm
testdata/lib2/My/Test.pm
testdata/META.yml
testdata/META.yml2
testdata/META.yml3
testdata/t/001_test.t
testdata/t2/001_use_ok.t
testdata/t2/lib/My/Test2.pm




---
abstract: 'Test required module is really used and vice versa bitween lib/t and META.yml'
author:
  - 'Takuya Tsuchida tsucchi@cpan.org'
build_requires:
  ExtUtils::MakeMaker: 6.42
  Test::More: 0
configure_requires:
  ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 0.91'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Test-Module-Used
no_index:
  directory:
    - inc
    - t
    - testdata
    - xt
requires:
  List::MoreUtils: 0
  Module::CoreList: 0
  Module::Used: 0
  PPI::Document: 0
  YAML: 0
  perl: 5.8.0
  version: 0.77
resources:
  license: http://dev.perl.org/licenses/
  repository: http://github.com/tsucchi/Test-Module-Used
version: 0.1.8




# This Makefile is for the Test::Module::Used extension to perl.
#
# It was generated automatically by MakeMaker version
# 6.55_02 (Revision: 65502) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
#       ANY CHANGES MADE HERE WILL BE LOST!
#
#   MakeMaker ARGV: (q[INSTALLDIRS=site], q[CC=cc], q[CCFLAGS=-O2 -pipe -fno-strict-aliasing], q[PREFIX=/usr/local], q[INSTALLPRIVLIB=/usr/local/lib], q[INSTALLARCHLIB=/usr/local/lib])
#

#   MakeMaker Parameters:

#     ABSTRACT => q[Test required module is really used and vice versa bitween lib/t and META.yml]
#     AUTHOR => q[Takuya Tsuchida tsucchi@cpan.org]
#     BUILD_REQUIRES => {  }
#     DIR => []
#     DISTNAME => q[Test-Module-Used]
#     NAME => q[Test::Module::Used]
#     NO_META => q[1]
#     PL_FILES => {  }
#     PREREQ_PM => { YAML=>q[0], Module::Used=>q[0], ExtUtils::MakeMaker=>q[6.42], version=>q[0.77], Test::More=>q[0], PPI::Document=>q[0], Module::CoreList=>q[0], List::MoreUtils=>q[0] }
#     VERSION => q[0.1.8]
#     dist => {  }
#     realclean => { FILES=>q[MYMETA.yml] }

# --- MakeMaker post_initialize section:


# --- MakeMaker const_config section:

# These definitions are from config.sh (via /usr/local/lib/perl5/5.10.1/mach/Config.pm).
# They may have been overridden via Makefile.PL or on the command line.
AR = ar
CC = cc
CCCDLFLAGS = -DPIC -fPIC
CCDLFLAGS =   -Wl,-R/usr/local/lib/perl5/5.10.1/mach/CORE
DLEXT = so
DLSRC = dl_dlopen.xs
EXE_EXT = 
FULL_AR = /usr/bin/ar
LD = cc
LDDLFLAGS = -shared  -L/usr/local/lib -fstack-protector
LDFLAGS =  -Wl,-E  -fstack-protector -L/usr/local/lib
LIBC = 
LIB_EXT = .a
OBJ_EXT = .o
OSNAME = freebsd
OSVERS = 8.0-release
RANLIB = :
SITELIBEXP = /usr/local/lib/perl5/site_perl/5.10.1
SITEARCHEXP = /usr/local/lib/perl5/site_perl/5.10.1/mach
SO = so
VENDORARCHEXP = $(VENDORPREFIX)/lib/perl5/5.10.1/i386-freebsd-64int
VENDORLIBEXP = $(VENDORPREFIX)/lib/perl5


# --- MakeMaker constants section:
AR_STATIC_ARGS = cr
DIRFILESEP = /
DFSEP = $(DIRFILESEP)
NAME = Test::Module::Used
NAME_SYM = Test_Module_Used
VERSION = 0.1.8
VERSION_MACRO = VERSION
VERSION_SYM = 0_1_8
DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
XS_VERSION = 0.1.8
XS_VERSION_MACRO = XS_VERSION
XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
INST_ARCHLIB = blib/arch
INST_SCRIPT = blib/script
INST_BIN = blib/bin
INST_LIB = blib/lib
INST_MAN1DIR = blib/man1
INST_MAN3DIR = blib/man3
MAN1EXT = 1
MAN3EXT = 3
INSTALLDIRS = site
DESTDIR = 
PREFIX = /usr/local
PERLPREFIX = $(PREFIX)
SITEPREFIX = $(PREFIX)
VENDORPREFIX = $(PREFIX)
INSTALLPRIVLIB = /usr/local/lib
DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
INSTALLSITELIB = $(SITEPREFIX)/lib/perl5/site_perl/5.10.1
DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
INSTALLVENDORLIB = $(VENDORPREFIX)/lib/perl5
DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
INSTALLARCHLIB = /usr/local/lib
DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
INSTALLSITEARCH = $(SITEPREFIX)/lib/perl5/site_perl/5.10.1/mach
DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
INSTALLVENDORARCH = $(VENDORPREFIX)/lib/perl5/5.10.1/i386-freebsd-64int
DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
INSTALLBIN = $(PERLPREFIX)/bin
DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
INSTALLSITEBIN = $(SITEPREFIX)/bin
DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
INSTALLVENDORBIN = $(VENDORPREFIX)/bin
DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN)
INSTALLSCRIPT = $(PERLPREFIX)/bin
DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT)
INSTALLSITESCRIPT = $(SITEPREFIX)/bin
DESTINSTALLSITESCRIPT = $(DESTDIR)$(INSTALLSITESCRIPT)
INSTALLVENDORSCRIPT = $(VENDORPREFIX)/bin
DESTINSTALLVENDORSCRIPT = $(DESTDIR)$(INSTALLVENDORSCRIPT)
INSTALLMAN1DIR = $(PERLPREFIX)/man/man1
DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR)
INSTALLSITEMAN1DIR = $(SITEPREFIX)/man/man1
DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR)
INSTALLVENDORMAN1DIR = $(VENDORPREFIX)/man/man1
DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR)
INSTALLMAN3DIR = $(PERLPREFIX)/lib/perl5/5.10.1/perl/man/man3
DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR)
INSTALLSITEMAN3DIR = $(SITEPREFIX)/lib/perl5/5.10.1/man/man3
DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
INSTALLVENDORMAN3DIR = $(VENDORPREFIX)/man/man3
DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
PERL_LIB =
PERL_ARCHLIB = /usr/local/lib/perl5/5.10.1/mach
LIBPERL_A = libperl.a
FIRST_MAKEFILE = Makefile
MAKEFILE_OLD = Makefile.old
MAKE_APERL_FILE = Makefile.aperl
PERLMAINCC = $(CC)
PERL_INC = /usr/local/lib/perl5/5.10.1/mach/CORE
PERL = /usr/local/bin/perl5.10.1 "-Iinc"
FULLPERL = /usr/local/bin/perl5.10.1 "-Iinc"
ABSPERL = $(PERL)
PERLRUN = $(PERL)
FULLPERLRUN = $(FULLPERL)
ABSPERLRUN = $(ABSPERL)
PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-Iinc" "-I$(INST_LIB)"
FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-Iinc" "-I$(INST_LIB)"
ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-Iinc" "-I$(INST_LIB)"
PERL_CORE = 0
PERM_DIR = 755
PERM_RW = 644
PERM_RWX = 755

MAKEMAKER   = /usr/local/lib/perl5/5.10.1/ExtUtils/MakeMaker.pm
MM_VERSION  = 6.55_02
MM_REVISION = 65502

# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
# DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
MAKE = make
FULLEXT = Test/Module/Used
BASEEXT = Used
PARENT_NAME = Test::Module
DLBASE = $(BASEEXT)
VERSION_FROM = 
OBJECT = 
LDFROM = $(OBJECT)
LINKTYPE = dynamic
BOOTDEP = 

# Handy lists of source code files:
XS_FILES = 
C_FILES  = 
O_FILES  = 
H_FILES  = 
MAN1PODS = 
MAN3PODS = lib/Test/Module/Used.pm

# Where is the Config information that we are using/depend on
CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h

# Where to build things
INST_LIBDIR      = $(INST_LIB)/Test/Module
INST_ARCHLIBDIR  = $(INST_ARCHLIB)/Test/Module

INST_AUTODIR     = $(INST_LIB)/auto/$(FULLEXT)
INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT)

INST_STATIC      = 
INST_DYNAMIC     = 
INST_BOOT        = 

# Extra linker info
EXPORT_LIST        = 
PERL_ARCHIVE       = 
PERL_ARCHIVE_AFTER = 


TO_INST_PM = lib/Test/Module/Used.pm

PM_TO_BLIB = lib/Test/Module/Used.pm \
	blib/lib/Test/Module/Used.pm


# --- MakeMaker platform_constants section:
MM_Unix_VERSION = 6.55_02
PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc


# --- MakeMaker tool_autosplit section:
# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
AUTOSPLITFILE = $(ABSPERLRUN)  -e 'use AutoSplit;  autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' --



# --- MakeMaker tool_xsubpp section:


# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
RM_RF = rm -rf
TEST_F = test -f
TOUCH = touch
UMASK_NULL = umask 0
DEV_NULL = > /dev/null 2>&1
MKPATH = $(ABSPERLRUN) -MExtUtils::Command -e 'mkpath' --
EQUALIZE_TIMESTAMP = $(ABSPERLRUN) -MExtUtils::Command -e 'eqtime' --
FALSE = false
TRUE = true
ECHO = echo
ECHO_N = echo -n
UNINST = 0
VERBINST = 0
MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install([ from_to => {@ARGV}, verbose => '\''$(VERBINST)'\'', uninstall_shadows => '\''$(UNINST)'\'', dir_mode => '\''$(PERM_DIR)'\'' ]);' --
DOC_INSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'perllocal_install' --
UNINSTALL = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'uninstall' --
WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) -MExtUtils::Command::MM -e 'warn_if_old_packlist' --
MACROSTART = 
MACROEND = 
USEMAKEFILE = -f
FIXIN = $(ABSPERLRUN) -MExtUtils::MY -e 'MY->fixin(shift)' --


# --- MakeMaker makemakerdflt section:
makemakerdflt : all
	$(NOECHO) $(NOOP)


# --- MakeMaker dist section:
TAR = tar
TARFLAGS = cvf
ZIP = zip
ZIPFLAGS = -r
COMPRESS = gzip --best
SUFFIX = .gz
SHAR = shar
PREOP = $(NOECHO) $(NOOP)
POSTOP = $(NOECHO) $(NOOP)
TO_UNIX = $(NOECHO) $(NOOP)
CI = ci -u
RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
DIST_CP = best
DIST_DEFAULT = tardist
DISTNAME = Test-Module-Used
DISTVNAME = Test-Module-Used-0.1.8


# --- MakeMaker macro section:


# --- MakeMaker depend section:


# --- MakeMaker cflags section:


# --- MakeMaker const_loadlibs section:


# --- MakeMaker const_cccmd section:


# --- MakeMaker post_constants section:


# --- MakeMaker pasthru section:

PASTHRU = LIBPERL_A="$(LIBPERL_A)"\
	LINKTYPE="$(LINKTYPE)"\
	PREFIX="$(PREFIX)"


# --- MakeMaker special_targets section:
.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)

.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir



# --- MakeMaker c_o section:


# --- MakeMaker xs_c section:


# --- MakeMaker xs_o section:


# --- MakeMaker top_targets section:
all :: pure_all manifypods
	$(NOECHO) $(NOOP)


pure_all :: config pm_to_blib subdirs linkext
	$(NOECHO) $(NOOP)

subdirs :: $(MYEXTLIB)
	$(NOECHO) $(NOOP)

config :: $(FIRST_MAKEFILE) blibdirs
	$(NOECHO) $(NOOP)

help :
	perldoc ExtUtils::MakeMaker


# --- MakeMaker blibdirs section:
blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists
	$(NOECHO) $(NOOP)

# Backwards compat with 6.18 through 6.25
blibdirs.ts : blibdirs
	$(NOECHO) $(NOOP)

$(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL
	$(NOECHO) $(MKPATH) $(INST_LIBDIR)
	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_LIBDIR)
	$(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists

$(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL
	$(NOECHO) $(MKPATH) $(INST_ARCHLIB)
	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHLIB)
	$(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists

$(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL
	$(NOECHO) $(MKPATH) $(INST_AUTODIR)
	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_AUTODIR)
	$(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists

$(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL
	$(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR)
	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_ARCHAUTODIR)
	$(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists

$(INST_BIN)$(DFSEP).exists :: Makefile.PL
	$(NOECHO) $(MKPATH) $(INST_BIN)
	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_BIN)
	$(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists

$(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL
	$(NOECHO) $(MKPATH) $(INST_SCRIPT)
	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_SCRIPT)
	$(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists

$(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL
	$(NOECHO) $(MKPATH) $(INST_MAN1DIR)
	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN1DIR)
	$(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists

$(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL
	$(NOECHO) $(MKPATH) $(INST_MAN3DIR)
	$(NOECHO) $(CHMOD) $(PERM_DIR) $(INST_MAN3DIR)
	$(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists



# --- MakeMaker linkext section:

linkext :: $(LINKTYPE)
	$(NOECHO) $(NOOP)


# --- MakeMaker dlsyms section:


# --- MakeMaker dynamic section:

dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT)
	$(NOECHO) $(NOOP)


# --- MakeMaker dynamic_bs section:

BOOTSTRAP =


# --- MakeMaker dynamic_lib section:


# --- MakeMaker static section:

## $(INST_PM) has been moved to the all: target.
## It remains here for awhile to allow for old usage: "make static"
static :: $(FIRST_MAKEFILE) $(INST_STATIC)
	$(NOECHO) $(NOOP)


# --- MakeMaker static_lib section:


# --- MakeMaker manifypods section:

POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
POD2MAN = $(POD2MAN_EXE)


manifypods : pure_all  \
	lib/Test/Module/Used.pm
	$(NOECHO) $(POD2MAN) --section=3 --perm_rw=$(PERM_RW) \
	  lib/Test/Module/Used.pm $(INST_MAN3DIR)/Test::Module::Used.$(MAN3EXT) 




# --- MakeMaker processPL section:


# --- MakeMaker installbin section:


# --- MakeMaker subdirs section:

# none

# --- MakeMaker clean_subdirs section:
clean_subdirs :
	$(NOECHO) $(NOOP)


# --- MakeMaker clean section:

# Delete temporary files but do not touch installed files. We don't delete
# the Makefile here so a later make realclean still has a makefile to use.

clean :: clean_subdirs
	- $(RM_F) \
	  *$(LIB_EXT) core \
	  core.[0-9] $(INST_ARCHAUTODIR)/extralibs.all \
	  core.[0-9][0-9] $(BASEEXT).bso \
	  pm_to_blib.ts core.[0-9][0-9][0-9][0-9] \
	  $(BASEEXT).x $(BOOTSTRAP) \
	  perl$(EXE_EXT) tmon.out \
	  *$(OBJ_EXT) pm_to_blib \
	  $(INST_ARCHAUTODIR)/extralibs.ld blibdirs.ts \
	  core.[0-9][0-9][0-9][0-9][0-9] *perl.core \
	  core.*perl.*.? $(MAKE_APERL_FILE) \
	  perl $(BASEEXT).def \
	  core.[0-9][0-9][0-9] mon.out \
	  lib$(BASEEXT).def perlmain.c \
	  perl.exe so_locations \
	  $(BASEEXT).exp 
	- $(RM_RF) \
	  blib 
	- $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)


# --- MakeMaker realclean_subdirs section:
realclean_subdirs :
	$(NOECHO) $(NOOP)


# --- MakeMaker realclean section:
# Delete temporary files (via clean) and also delete dist files
realclean purge ::  clean realclean_subdirs
	- $(RM_F) \
	  $(MAKEFILE_OLD) $(FIRST_MAKEFILE) 
	- $(RM_RF) \
	  MYMETA.yml $(DISTVNAME) 


# --- MakeMaker metafile section:
metafile :
	$(NOECHO) $(NOOP)


# --- MakeMaker signature section:
signature :
	cpansign -s


# --- MakeMaker dist_basics section:
distclean :: realclean distcheck
	$(NOECHO) $(NOOP)

distcheck :
	$(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck

skipcheck :
	$(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck

manifest :
	$(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest

veryclean : realclean
	$(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old 



# --- MakeMaker dist_core section:

dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE)
	$(NOECHO) $(ABSPERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \
	  -e '    if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';' --

tardist : $(DISTVNAME).tar$(SUFFIX)
	$(NOECHO) $(NOOP)

uutardist : $(DISTVNAME).tar$(SUFFIX)
	uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu

$(DISTVNAME).tar$(SUFFIX) : distdir
	$(PREOP)
	$(TO_UNIX)
	$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
	$(RM_RF) $(DISTVNAME)
	$(COMPRESS) $(DISTVNAME).tar
	$(POSTOP)

zipdist : $(DISTVNAME).zip
	$(NOECHO) $(NOOP)

$(DISTVNAME).zip : distdir
	$(PREOP)
	$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
	$(RM_RF) $(DISTVNAME)
	$(POSTOP)

shdist : distdir
	$(PREOP)
	$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
	$(RM_RF) $(DISTVNAME)
	$(POSTOP)


# --- MakeMaker distdir section:
create_distdir :
	$(RM_RF) $(DISTVNAME)
	$(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \
		-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"

distdir : create_distdir  
	$(NOECHO) $(NOOP)



# --- MakeMaker dist_test section:
disttest : distdir
	cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL "INSTALLDIRS=site" "CC=cc" "CCFLAGS=-O2 -pipe -fno-strict-aliasing" "PREFIX=/usr/local" "INSTALLPRIVLIB=/usr/local/lib" "INSTALLARCHLIB=/usr/local/lib"
	cd $(DISTVNAME) && $(MAKE) $(PASTHRU)
	cd $(DISTVNAME) && $(MAKE) test $(PASTHRU)



# --- MakeMaker dist_ci section:

ci :
	$(PERLRUN) "-MExtUtils::Manifest=maniread" \
	  -e "@all = keys %{ maniread() };" \
	  -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \
	  -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});"


# --- MakeMaker distmeta section:
distmeta : create_distdir metafile
	$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \
	  -e '    or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' --



# --- MakeMaker distsignature section:
distsignature : create_distdir
	$(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \
	  -e '    or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' --
	$(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE
	cd $(DISTVNAME) && cpansign -s



# --- MakeMaker install section:

install :: pure_install doc_install
	$(NOECHO) $(NOOP)

install_perl :: pure_perl_install
	$(NOECHO) $(NOOP)

install_site :: pure_site_install
	$(NOECHO) $(NOOP)

install_vendor :: pure_vendor_install doc_vendor_install
	$(NOECHO) $(NOOP)

pure_install :: pure_$(INSTALLDIRS)_install
	$(NOECHO) $(NOOP)

doc_install ::
	$(NOECHO) $(NOOP)

pure__install : pure_site_install
	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site

doc__install :
	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site

pure_perl_install :: all
	$(NOECHO) $(MOD_INSTALL) \
		read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \
		write $(DESTINSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \
		$(INST_LIB) $(DESTINSTALLPRIVLIB) \
		$(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \
		$(INST_BIN) $(DESTINSTALLBIN) \
		$(INST_SCRIPT) $(DESTINSTALLSCRIPT) \
		$(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \
		$(INST_MAN3DIR) $(DESTINSTALLMAN3DIR)
	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
		$(SITEARCHEXP)/auto/$(FULLEXT)


pure_site_install :: all
	$(NOECHO) $(MOD_INSTALL) \
		read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \
		write $(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \
		$(INST_LIB) $(DESTINSTALLSITELIB) \
		$(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \
		$(INST_BIN) $(DESTINSTALLSITEBIN) \
		$(INST_SCRIPT) $(DESTINSTALLSITESCRIPT) \
		$(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \
		$(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR)
	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
		$(PERL_ARCHLIB)/auto/$(FULLEXT)

pure_vendor_install :: all
	$(NOECHO) $(MOD_INSTALL) \
		read $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist \
		write $(DESTINSTALLVENDORARCH)/auto/$(FULLEXT)/.packlist \
		$(INST_LIB) $(DESTINSTALLVENDORLIB) \
		$(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \
		$(INST_BIN) $(DESTINSTALLVENDORBIN) \
		$(INST_SCRIPT) $(DESTINSTALLVENDORSCRIPT) \
		$(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \
		$(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR)

doc_perl_install :: all
	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
	-$(NOECHO) $(DOC_INSTALL) \
		"Module" "$(NAME)" \
		"installed into" "$(INSTALLPRIVLIB)" \
		LINKTYPE "$(LINKTYPE)" \
		VERSION "$(VERSION)" \
		EXE_FILES "$(EXE_FILES)" \
		>> $(DESTINSTALLARCHLIB)/perllocal.pod

doc_site_install :: all
	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
	-$(NOECHO) $(DOC_INSTALL) \
		"Module" "$(NAME)" \
		"installed into" "$(INSTALLSITELIB)" \
		LINKTYPE "$(LINKTYPE)" \
		VERSION "$(VERSION)" \
		EXE_FILES "$(EXE_FILES)" \
		>> $(DESTINSTALLARCHLIB)/perllocal.pod

doc_vendor_install :: all
	$(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
	-$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
	-$(NOECHO) $(DOC_INSTALL) \
		"Module" "$(NAME)" \
		"installed into" "$(INSTALLVENDORLIB)" \
		LINKTYPE "$(LINKTYPE)" \
		VERSION "$(VERSION)" \
		EXE_FILES "$(EXE_FILES)" \
		>> $(DESTINSTALLARCHLIB)/perllocal.pod


uninstall :: uninstall_from_$(INSTALLDIRS)dirs
	$(NOECHO) $(NOOP)

uninstall_from_perldirs ::
	$(NOECHO) $(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist

uninstall_from_sitedirs ::
	$(NOECHO) $(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist

uninstall_from_vendordirs ::
	$(NOECHO) $(UNINSTALL) $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist


# --- MakeMaker force section:
# Phony target to force checking subdirectories.
FORCE :
	$(NOECHO) $(NOOP)


# --- MakeMaker perldepend section:


# --- MakeMaker makefile section:
# We take a very conservative approach here, but it's worth it.
# We move Makefile to Makefile.old here to avoid gnu make looping.
$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP)
	$(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?"
	$(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..."
	-$(NOECHO) $(RM_F) $(MAKEFILE_OLD)
	-$(NOECHO) $(MV)   $(FIRST_MAKEFILE) $(MAKEFILE_OLD)
	- $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL)
	$(PERLRUN) Makefile.PL "INSTALLDIRS=site" "CC=cc" "CCFLAGS=-O2 -pipe -fno-strict-aliasing" "PREFIX=/usr/local" "INSTALLPRIVLIB=/usr/local/lib" "INSTALLARCHLIB=/usr/local/lib"
	$(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
	$(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command.  <=="
	$(FALSE)



# --- MakeMaker staticmake section:

# --- MakeMaker makeaperl section ---
MAP_TARGET    = perl
FULLPERL      = /usr/local/bin/perl5.10.1

$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
	$(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@

$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib
	$(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
	$(NOECHO) $(PERLRUNINST) \
		Makefile.PL DIR= \
		MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
		MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= \
		INSTALLDIRS=site \
		CC=cc \
		CCFLAGS='-O2 -pipe -fno-strict-aliasing' \
		PREFIX=/usr/local \
		INSTALLPRIVLIB=/usr/local/lib \
		INSTALLARCHLIB=/usr/local/lib


# --- MakeMaker test section:

TEST_VERBOSE=0
TEST_TYPE=test_$(LINKTYPE)
TEST_FILE = test.pl
TEST_FILES = t/*.t
TESTDB_SW = -d

testdb :: testdb_$(LINKTYPE)

test :: $(TEST_TYPE) subdirs-test

subdirs-test ::
	$(NOECHO) $(NOOP)


test_dynamic :: pure_all
	PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-MExtUtils::Command::MM" "-e" "test_harness($(TEST_VERBOSE), 'inc', '$(INST_LIB)', '$(INST_ARCHLIB)')" $(TEST_FILES)

testdb_dynamic :: pure_all
	PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-Iinc" "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE)

test_ : test_dynamic

test_static :: test_dynamic
testdb_static :: testdb_dynamic


# --- MakeMaker ppd section:
# Creates a PPD (Perl Package Description) for a binary distribution.
ppd :
	$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="0.1.8">' > $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '    <ABSTRACT>Test required module is really used and vice versa bitween lib/t and META.yml</ABSTRACT>' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '    <AUTHOR>Takuya Tsuchida tsucchi@cpan.org</AUTHOR>' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '    <IMPLEMENTATION>' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <REQUIRE NAME="ExtUtils::MakeMaker" VERSION="6.42" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <REQUIRE NAME="List::MoreUtils" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <REQUIRE NAME="Module::CoreList" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <REQUIRE NAME="Module::Used" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <REQUIRE NAME="PPI::Document" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <REQUIRE NAME="Test::More" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <REQUIRE NAME="YAML::" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <REQUIRE NAME="version::" VERSION="0.77" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <ARCHITECTURE NAME="i386-freebsd-64int-5.10" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '        <CODEBASE HREF="" />' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '    </IMPLEMENTATION>' >> $(DISTNAME).ppd
	$(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd


# --- MakeMaker pm_to_blib section:

pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
	$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
	  lib/Test/Module/Used.pm blib/lib/Test/Module/Used.pm 
	$(NOECHO) $(TOUCH) pm_to_blib


# --- MakeMaker selfdocument section:


# --- MakeMaker postamble section:


# End.
# Postamble by Module::Install 0.91




use inc::Module::Install;
name           'Test-Module-Used';
author         'Takuya Tsuchida tsucchi@cpan.org';
license        'perl';
all_from       'lib/Test/Module/Used.pm';
requires       'Module::Used';
requires       'YAML';
requires       'List::MoreUtils';
requires       'Module::CoreList';
requires       'PPI::Document';
requires       'version' => 0.77;
test_requires  'Test::More';

author_tests   'xt';

no_index       directory => 'testdata';
repository     'http://github.com/tsucchi/Test-Module-Used';
WriteAll;

Lines 1-10 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/README (-10 lines)
1	INSTALLATION
2
3	To install this module type the following:
4
5	perl Makefile.PL
6	make
7	make test
8	make install
9
10




package Test::Module::Used;
use base qw(Exporter);
use strict;
use warnings;
use File::Find;
use File::Spec::Functions qw(catfile);
use Module::Used qw(modules_used_in_document);
use Module::CoreList;
use YAML;
use Test::Builder;
use List::MoreUtils qw(any);
use PPI::Document;
use version;

use 5.008;
our $VERSION = '0.1.8';

=head1 NAME

Test::Module::Used - Test required module is really used and vice versa bitween lib/t and META.yml

=head1 SYNOPSIS

  #!/usr/bin/perl -w
  use strict;
  use warnings;
  use Test::Module::Used;
  my $used = Test::Module::Used->new();
  $used->ok;


=head1 DESCRIPTION

Test dependency between module and META.yml.

This module reads I<META.yml> and get I<build_requires> and I<requires>. It compares required module is really used and used module is really required.

=cut

=head1 Important changes

Some behavier changed since 0.1.3_01.

=over 4

=item * perl_version set in constructor is prior to use, and read version from META.yml(not read from use statement in *.pm)

=item * deprecated interfaces are deleted. (module_dir, test_module_dir, exclude_in_moduledir and push_exclude_in_moduledir)

=back

=cut

=head1 methods

=cut

=head2 new

create new instance

all parameters are passed by hash-style, and optional.

in ordinary use.

  my $used = Test::Module::Used->new();
  $used->ok();

all parameters are as follows.(specified values are default, except I<exclude_in_testdir>)

  my $used = Test::Module::Used->new(
    test_dir     => ['t'],            # directory(ies) which contains test scripts.
    lib_dir      => ['lib'],          # directory(ies) which contains module libs.
    test_lib_dir => ['t'],            # directory(ies) which contains libs used ONLY in test (ex. MockObject for test)
    meta_file    => 'META.yml',       # META.yml (contains module requirement information)
    perl_version => '5.008',          # expected perl version which is used for ignore core-modules in testing
    exclude_in_testdir => [],         # ignored module(s) for test even if it is used.
    exclude_in_libdir   => [],        # ignored module(s) for your lib even if it is used.
    exclude_in_build_requires => [],  # ignored module(s) even if it is written in build_requires of META.yml.
    exclude_in_requires => [],        # ignored module(s) even if it is written in requires of META.yml.
  );

if perl_version is not passed in constructor, this modules reads I<meta_file> and get perl version. 

I<exclude_in_testdir> is automatically set by default. This module reads I<lib_dir> and parse "pacakge" statement, then found "package" statements and myself(Test::Module::Used) is set.
I<exclude_in_libdir> is also automatically set by default. This module reads I<lib_dir> and parse "package" statement, found "package" statement are set.(Test::Module::Used isnt included)

=cut

sub new {
    my $class = shift;
    my (%opt) = @_;
    my $self = {
        test_dir     => $opt{test_dir}     || ['t'],
        lib_dir      => $opt{lib_dir}      || ['lib'],
        test_lib_dir => $opt{test_lib_dir} || ['t'],
        meta_file    => $opt{meta_file}    || 'META.yml',
        perl_version => $opt{perl_version},
        exclude_in_testdir        => $opt{exclude_in_testdir},
        exclude_in_libdir         => $opt{exclude_in_libdir},
        exclude_in_build_requires => $opt{exclude_in_build_requires} || [],
        exclude_in_requires       => $opt{exclude_in_requires}       || [],
    };
    bless $self, $class;
    $self->_get_packages();
    return $self;
}


sub _test_dir {
    return shift->{test_dir};
}

sub _lib_dir {
    return shift->{lib_dir};
}

sub _test_lib_dir {
    return shift->{test_lib_dir};
}

sub _meta_file {
    return shift->{meta_file};
}

sub _perl_version {
    return shift->{perl_version};
}

=head2 ok

check used module is ok.

  my $used = Test::Module::Used->new(
    exclude_in_testdir => ['Test::Module::Used', 'My::Module'],
  );
  $used->ok;


First, This module reads I<META.yml> and get I<build_requires> and I<requires>. Next, reads module directory (by default I<lib>) and test directory(by default I<t>), and compare required module is really used and used module is really required. If all these requirement information is OK, test will success.

=cut

sub ok {
    my $self = shift;
    my $test = Test::Builder->new();


    my $num_tests = $self->_num_tests();
    if ( $num_tests > 0 ) {
        $test->plan(tests => $num_tests);
        my $status_requires_ok       = $self->_requires_ok($test,
                                                           [$self->_remove_core($self->_used_modules)],
                                                           [$self->_remove_core($self->_requires)],
                                                           "lib");
        my $status_build_requires_ok = $self->_requires_ok($test,
                                                           [$self->_remove_core($self->_used_modules_in_test)],
                                                           [$self->_remove_core($self->_build_requires)],
                                                           "test");
        return $status_requires_ok && $status_build_requires_ok;
    }
    else {
        $test->plan(tests => 1);
        $test->ok(1, "no tests run");
        return 1;
    }
}

=head2 push_exclude_in_libdir( @exclude_module_names )

add ignored module(s) for your module(lib) even if it is used after new()'ed.
this is usable if you want to use auto set feature for I<exclude_in_libdir> but manually specify exclude modules.

For example,

 my $used = Test::Module::Used->new(); #automatically set exclude_in_libdir
 $used->push_exclude_in_libdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
 $used->ok(); #do test

=cut

sub push_exclude_in_libdir {
    my $self = shift;
    my @exclude_module_names = @_;
    push @{$self->{exclude_in_libdir}},@exclude_module_names;
}



=head2 push_exclude_in_testdir( @exclude_module_names )

add ignored module(s) for test even if it is used after new()'ed.
this is usable if you want to use auto set feature for I<exclude_in_testdir> but manually specify exclude modules.

For example,

 my $used = Test::Module::Used->new(); #automatically set exclude_in_testdir
 $used->push_exclude_in_testdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
 $used->ok(); #do test

=cut

sub push_exclude_in_testdir {
    my $self = shift;
    my @exclude_module_names = @_;
    push @{$self->{exclude_in_testdir}},@exclude_module_names;
}

sub _version {
    my $self = shift;
    if ( !defined $self->{version} ) {
        $self->{version} = $self->_perl_version || $self->_version_from_meta || "5.008000";
    }
    return $self->{version};
}

sub _num_tests {
    my $self = shift;

    return scalar($self->_remove_core($self->_used_modules,
                                      $self->_requires,
                                      $self->_used_modules_in_test,
                                      $self->_build_requires));
}

sub _requires_ok {
    my $self = shift;
    my ($test, $used_aref, $requires_aref, $place) = @_;

    my $status1 = $self->_check_required_but_not_used($test, $requires_aref, $used_aref, $place);
    my $status2 = $self->_check_used_but_not_required($test, $requires_aref, $used_aref, $place);

    return $status1 && $status2;
}


sub _check_required_but_not_used {
    my $self = shift;
    my ($test, $requires_aref, $used_aref, $place) = @_;
    my @requires = @{$requires_aref};
    my @used     = @{$used_aref};

    my $result = 1;
    for my $require ( @requires ) {
        my $status = any { $_ eq $require } @used;
        $test->ok( $status, "check required module: $require" );
        if ( !$status ) {
            $test->diag("module $require is required but not used in $place");
            $result = 0;
        }
    }
    return $result;
}

sub _check_used_but_not_required {
    my $self = shift;
    my ($test, $requires_aref, $used_aref, $place) = @_;
    my @requires = @{$requires_aref};
    my @used     = @{$used_aref};

    my $result = 1;
    for my $used ( @used ) {
        my $status = any { $_ eq $used } @requires;
        $test->ok( $status, "check used module: $used" );
        if ( !$status ) {
            $test->diag("module $used is used in $place but not required");
            $result = 0;
        }
    }
    return $result;
}

sub _pm_files {
    my $self = shift;
    if ( !defined $self->{pm_files} ) {
        my @files = $self->_find_files_by_ext($self->_lib_dir, qr/\.pm$/);
        $self->{pm_files} = \@files;
    }
    return @{$self->{pm_files}};
}

sub _pm_files_in_test {
    my $self = shift;
    if ( !defined $self->{pm_files_in_test} ) {
        my @files = $self->_find_files_by_ext($self->_test_lib_dir, qr/\.pm$/);
        $self->{pm_files_in_test} = \@files;
    }
    return @{$self->{pm_files_in_test}};
}

sub _test_files {
    my $self = shift;
    return $self->_find_files_by_ext($self->_test_dir, qr/\.t$/);
}

sub _find_files_by_ext {
    my $self = shift;
    my ($start_dirs_aref, $ext_qr) = @_;
    my @result;
    find( sub {
              push @result, catfile($File::Find::dir, $_) if ( $_ =~ $ext_qr );
          },
          @{$start_dirs_aref});
    return @result;
}

sub _used_modules {
    my $self = shift;
    if ( !defined $self->{used_modules} ) {
        my @used = map { modules_used_in_document($self->_ppi_for($_)) } $self->_pm_files;
        my @result = _array_difference(\@used, $self->{exclude_in_libdir});
        $self->{used_modules} = \@result;
    }
    return @{$self->{used_modules}};
}

sub _used_modules_in_test {
    my $self = shift;
    if ( !defined $self->{used_modules_in_test} ) {
        my @used = map { modules_used_in_document($self->_ppi_for($_)) } $self->_test_files;
        my @result = _array_difference(\@used, $self->{exclude_in_testdir});
        $self->{used_modules_in_test} = \@result;
    }
    return @{$self->{used_modules_in_test}};
}

sub _array_difference {
    my ( $aref1, $aref2 ) = @_;
    my @a1 = @{$aref1};
    my @a2 = @{$aref2};

    for my $a2 ( @a2 ) {
        @a1 = grep { $_ ne $a2 } @a1;
    }
    return @a1;
}

sub _version_from_meta {
    my $self = shift;
    return $self->{version_from_meta};
}

sub _remove_core {
    my $self = shift;
    my( @module_names ) = @_;
    my @result = grep {  !$self->_is_core_module($_) } @module_names;
    return @result;
}

sub _is_core_module {
    my $self = shift;
    my($module_name) = @_;
    my $first_release = Module::CoreList->first_release($module_name);
    return defined $first_release && $first_release <= $self->_version;
}

sub _read_meta_yml {
    my $self = shift;
    my $yaml = YAML::LoadFile( $self->_meta_file );
    $self->{build_requires} = $yaml->{build_requires};
    $self->{version_from_meta} = version->parse($yaml->{requires}->{perl})->numify() if defined $yaml->{requires}->{perl};
    delete $yaml->{requires}->{perl};
    $self->{requires} = $yaml->{requires};
}

sub _build_requires {
    my $self = shift;

    $self->_read_meta_yml if !defined $self->{build_requires};
    my @result = sort keys %{$self->{build_requires}};
    return _array_difference(\@result, $self->{exclude_in_build_requires});
}

sub _requires {
    my $self = shift;

    $self->_read_meta_yml if !defined $self->{requires};
    my @result = sort keys %{$self->{requires}};
    return _array_difference(\@result, $self->{exclude_in_requires});
}

# find package statements in lib
sub _get_packages {
    my $self = shift;
    my @packages = $self->_packages_in( $self->_pm_files );
    my @exclude_in_testdir = (__PACKAGE__, @packages, $self->_packages_in($self->_pm_files_in_test));
    $self->push_exclude_in_testdir(@exclude_in_testdir) if ( !defined $self->{exclude_in_testdir} );
    $self->push_exclude_in_libdir(@packages)            if ( !defined $self->{exclude_in_libdir} );
}

sub _packages_in {
    my $self = shift;
    my ( @filenames ) = @_;

    my @result;
    for my $filename ( @filenames ) {
        my @packages = $self->_packages_in_file($filename);
        push @result, @packages;
    }
    return @result;
}

sub _packages_in_file {
    my $self = shift;
    my ( $filename ) = @_;

    my $doc = $self->_ppi_for($filename);
    my $packages = $doc->find('PPI::Statement::Package');
    return if ( $packages eq '' );

    my @result;
    for my $item ( @{$packages} ) {
        for my $token ( @{$item->{children}} ) {
            next if ( !$token->isa('PPI::Token::Word') );
            next if ( $token->content eq 'package' );
            push @result, $token->content;
        }
    }
    return @result;
}

# PPI::Document object for $filename
sub _ppi_for {
    my $self = shift;
    my ($filename) = @_;
    if ( !defined $self->{ppi_for}->{$filename} ) {
        my $doc = PPI::Document->new($filename);
        $self->{ppi_for}->{$filename} = $doc;
    }
    return $self->{ppi_for}->{$filename};
}


1;
__END__

=head1 AUTHOR

Takuya Tsuchida E<lt>tsucchi@cpan.orgE<gt>

=head1 SEE ALSO

L<Test::Dependencies> has almost same feature.

=head1 REPOSITORY

L<http://github.com/tsucchi/Test-Module-Used>


=head1 COPYRIGHT AND LICENSE

Copyright (c) 2008-2010 Takuya Tsuchida

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut




.\" Automatically generated by Pod::Man 2.22 (Pod::Simple 3.07)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.ie \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.el \{\
.    de IX
..
.\}
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Test::Module::Used 3"
.TH Test::Module::Used 3 "2010-01-12" "perl v5.10.1" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Test::Module::Used \- Test required module is really used and vice versa bitween lib/t and META.yml
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 6
\&  #!/usr/bin/perl \-w
\&  use strict;
\&  use warnings;
\&  use Test::Module::Used;
\&  my $used = Test::Module::Used\->new();
\&  $used\->ok;
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
Test dependency between module and \s-1META\s0.yml.
.PP
This module reads \fI\s-1META\s0.yml\fR and get \fIbuild_requires\fR and \fIrequires\fR. It compares required module is really used and used module is really required.
.SH "Important changes"
.IX Header "Important changes"
Some behavier changed since 0.1.3_01.
.IP "\(bu" 4
perl_version set in constructor is prior to use, and read version from \s-1META\s0.yml(not read from use statement in *.pm)
.IP "\(bu" 4
deprecated interfaces are deleted. (module_dir, test_module_dir, exclude_in_moduledir and push_exclude_in_moduledir)
.SH "methods"
.IX Header "methods"
.SS "new"
.IX Subsection "new"
create new instance
.PP
all parameters are passed by hash-style, and optional.
.PP
in ordinary use.
.PP
.Vb 2
\&  my $used = Test::Module::Used\->new();
\&  $used\->ok();
.Ve
.PP
all parameters are as follows.(specified values are default, except \fIexclude_in_testdir\fR)
.PP
.Vb 11
\&  my $used = Test::Module::Used\->new(
\&    test_dir     => [\*(Aqt\*(Aq],            # directory(ies) which contains test scripts.
\&    lib_dir      => [\*(Aqlib\*(Aq],          # directory(ies) which contains module libs.
\&    test_lib_dir => [\*(Aqt\*(Aq],            # directory(ies) which contains libs used ONLY in test (ex. MockObject for test)
\&    meta_file    => \*(AqMETA.yml\*(Aq,       # META.yml (contains module requirement information)
\&    perl_version => \*(Aq5.008\*(Aq,          # expected perl version which is used for ignore core\-modules in testing
\&    exclude_in_testdir => [],         # ignored module(s) for test even if it is used.
\&    exclude_in_libdir   => [],        # ignored module(s) for your lib even if it is used.
\&    exclude_in_build_requires => [],  # ignored module(s) even if it is written in build_requires of META.yml.
\&    exclude_in_requires => [],        # ignored module(s) even if it is written in requires of META.yml.
\&  );
.Ve
.PP
if perl_version is not passed in constructor, this modules reads \fImeta_file\fR and get perl version.
.PP
\&\fIexclude_in_testdir\fR is automatically set by default. This module reads \fIlib_dir\fR and parse \*(L"pacakge\*(R" statement, then found \*(L"package\*(R" statements and myself(Test::Module::Used) is set.
\&\fIexclude_in_libdir\fR is also automatically set by default. This module reads \fIlib_dir\fR and parse \*(L"package\*(R" statement, found \*(L"package\*(R" statement are set.(Test::Module::Used isnt included)
.SS "ok"
.IX Subsection "ok"
check used module is ok.
.PP
.Vb 4
\&  my $used = Test::Module::Used\->new(
\&    exclude_in_testdir => [\*(AqTest::Module::Used\*(Aq, \*(AqMy::Module\*(Aq],
\&  );
\&  $used\->ok;
.Ve
.PP
First, This module reads \fI\s-1META\s0.yml\fR and get \fIbuild_requires\fR and \fIrequires\fR. Next, reads module directory (by default \fIlib\fR) and test directory(by default \fIt\fR), and compare required module is really used and used module is really required. If all these requirement information is \s-1OK\s0, test will success.
.ie n .SS "push_exclude_in_libdir( @exclude_module_names )"
.el .SS "push_exclude_in_libdir( \f(CW@exclude_module_names\fP )"
.IX Subsection "push_exclude_in_libdir( @exclude_module_names )"
add ignored module(s) for your module(lib) even if it is used after \fInew()\fR'ed.
this is usable if you want to use auto set feature for \fIexclude_in_libdir\fR but manually specify exclude modules.
.PP
For example,
.PP
.Vb 3
\& my $used = Test::Module::Used\->new(); #automatically set exclude_in_libdir
\& $used\->push_exclude_in_libdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
\& $used\->ok(); #do test
.Ve
.ie n .SS "push_exclude_in_testdir( @exclude_module_names )"
.el .SS "push_exclude_in_testdir( \f(CW@exclude_module_names\fP )"
.IX Subsection "push_exclude_in_testdir( @exclude_module_names )"
add ignored module(s) for test even if it is used after \fInew()\fR'ed.
this is usable if you want to use auto set feature for \fIexclude_in_testdir\fR but manually specify exclude modules.
.PP
For example,
.PP
.Vb 3
\& my $used = Test::Module::Used\->new(); #automatically set exclude_in_testdir
\& $used\->push_exclude_in_testdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
\& $used\->ok(); #do test
.Ve
.SH "AUTHOR"
.IX Header "AUTHOR"
Takuya Tsuchida <tsucchi@cpan.org>
.SH "SEE ALSO"
.IX Header "SEE ALSO"
Test::Dependencies has almost same feature.
.SH "REPOSITORY"
.IX Header "REPOSITORY"
<http://github.com/tsucchi/Test\-Module\-Used>
.SH "COPYRIGHT AND LICENSE"
.IX Header "COPYRIGHT AND LICENSE"
Copyright (c) 2008\-2010 Takuya Tsuchida
.PP
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.




#line 1
package Module::Install::AuthorTests;

use 5.005;
use strict;
use Module::Install::Base;
use Carp ();

#line 16

use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
  $VERSION = '0.002';
  $ISCORE  = 1;
  @ISA     = qw{Module::Install::Base};
}

#line 42

sub author_tests {
  my ($self, @dirs) = @_;
  _add_author_tests($self, \@dirs, 0);
}

#line 56

sub recursive_author_tests {
  my ($self, @dirs) = @_;
  _add_author_tests($self, \@dirs, 1);
}

sub _wanted {
  my $href = shift;
  sub { /\.t$/ and -f $_ and $href->{$File::Find::dir} = 1 }
}

sub _add_author_tests {
  my ($self, $dirs, $recurse) = @_;
  return unless $Module::Install::AUTHOR;

  my @tests = $self->tests ? (split / /, $self->tests) : 't/*.t';

  # XXX: pick a default, later -- rjbs, 2008-02-24
  my @dirs = @$dirs ? @$dirs : Carp::confess "no dirs given to author_tests";
     @dirs = grep { -d } @dirs;

  if ($recurse) {
    require File::Find;
    my %test_dir;
    File::Find::find(_wanted(\%test_dir), @dirs);
    $self->tests( join ' ', @tests, map { "$_/*.t" } sort keys %test_dir );
  } else {
    $self->tests( join ' ', @tests, map { "$_/*.t" } sort @dirs );
  }
}

#line 107

1;




#line 1
package Module::Install::Base;

use strict 'vars';
use vars qw{$VERSION};
BEGIN {
	$VERSION = '0.91';
}

# Suspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SIG{__WARN__} = sub { $w };
}

#line 42

sub new {
	my $class = shift;
	unless ( defined &{"${class}::call"} ) {
		*{"${class}::call"} = sub { shift->_top->call(@_) };
	}
	unless ( defined &{"${class}::load"} ) {
		*{"${class}::load"} = sub { shift->_top->load(@_) };
	}
	bless { @_ }, $class;
}

#line 61

sub AUTOLOAD {
	local $@;
	my $func = eval { shift->_top->autoload } or return;
	goto &$func;
}

#line 75

sub _top {
	$_[0]->{_top};
}

#line 90

sub admin {
	$_[0]->_top->{admin}
	or
	Module::Install::Base::FakeAdmin->new;
}

#line 106

sub is_admin {
	$_[0]->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $fake;

sub new {
	$fake ||= bless(\@_, $_[0]);
}

sub AUTOLOAD {}

sub DESTROY {}

# Restore warning handler
BEGIN {
	$SIG{__WARN__} = $SIG{__WARN__}->();
}

1;

#line 154




#line 1
package Module::Install::Can;

use strict;
use Config                ();
use File::Spec            ();
use ExtUtils::MakeMaker   ();
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
	$VERSION = '0.91';
	@ISA     = 'Module::Install::Base';
	$ISCORE  = 1;
}

# check if we can load some module
### Upgrade this to not have to load the module if possible
sub can_use {
	my ($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_run {
	my ($self, $cmd) = @_;

	my $_cmd = $cmd;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		next if $dir eq '';
		my $abs = File::Spec->catfile($dir, $_[1]);
		return $abs if (-x $abs or $abs = MM->maybe_command($abs));
	}

	return;
}

# can we locate a (the) C compiler
sub can_cc {
	my $self   = shift;
	my @chunks = split(/ /, $Config::Config{cc}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($file);
			}
		}
	}
}

1;

__END__

#line 156




#line 1
package Module::Install::Fetch;

use strict;
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
	$VERSION = '0.91';
	@ISA     = 'Module::Install::Base';
	$ISCORE  = 1;
}

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) =
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) =
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$?;
}

1;




#line 1
package Module::Install::Makefile;

use strict 'vars';
use ExtUtils::MakeMaker   ();
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
	$VERSION = '0.91';
	@ISA     = 'Module::Install::Base';
	$ISCORE  = 1;
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
	shift;

	# Infinite loop protection
	my @c = caller();
	if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
		die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
	}

	# In automated testing, always use defaults
	if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
		local $ENV{PERL_MM_USE_DEFAULT} = 1;
		goto &ExtUtils::MakeMaker::prompt;
	} else {
		goto &ExtUtils::MakeMaker::prompt;
	}
}

sub makemaker_args {
	my $self = shift;
	my $args = ( $self->{makemaker_args} ||= {} );
	%$args = ( %$args, @_ );
	return $args;
}

# For mm args that take multiple space-seperated args,
# append an argument to the current list.
sub makemaker_append {
	my $self = sShift;
	my $name = shift;
	my $args = $self->makemaker_args;
	$args->{name} = defined $args->{$name}
		? join( ' ', $args->{name}, @_ )
		: join( ' ', @_ );
}

sub build_subdirs {
	my $self    = shift;
	my $subdirs = $self->makemaker_args->{DIR} ||= [];
	for my $subdir (@_) {
		push @$subdirs, $subdir;
	}
}

sub clean_files {
	my $self  = shift;
	my $clean = $self->makemaker_args->{clean} ||= {};
	  %$clean = (
		%$clean,
		FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
	);
}

sub realclean_files {
	my $self      = shift;
	my $realclean = $self->makemaker_args->{realclean} ||= {};
	  %$realclean = (
		%$realclean,
		FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
	);
}

sub libs {
	my $self = shift;
	my $libs = ref $_[0] ? shift : [ shift ];
	$self->makemaker_args( LIBS => $libs );
}

sub inc {
	my $self = shift;
	$self->makemaker_args( INC => shift );
}

my %test_dir = ();

sub _wanted_t {
	/\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
}

sub tests_recursive {
	my $self = shift;
	if ( $self->tests ) {
		die "tests_recursive will not work if tests are already defined";
	}
	my $dir = shift || 't';
	unless ( -d $dir ) {
		die "tests_recursive dir '$dir' does not exist";
	}
	%test_dir = ();
	require File::Find;
	File::Find::find( \&_wanted_t, $dir );
	$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
}

sub write {
	my $self = shift;
	die "&Makefile->write() takes no arguments\n" if @_;

	# Check the current Perl version
	my $perl_version = $self->perl_version;
	if ( $perl_version ) {
		eval "use $perl_version; 1"
			or die "ERROR: perl: Version $] is installed, "
			. "but we need version >= $perl_version";
	}

	# Make sure we have a new enough MakeMaker
	require ExtUtils::MakeMaker;

	if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
		# MakeMaker can complain about module versions that include
		# an underscore, even though its own version may contain one!
		# Hence the funny regexp to get rid of it.  See RT #35800
		# for details.
		$self->build_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
		$self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
	} else {
		# Allow legacy-compatibility with 5.005 by depending on the
		# most recent EU:MM that supported 5.005.
		$self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );
		$self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );
	}

	# Generate the MakeMaker params
	my $args = $self->makemaker_args;
	$args->{DISTNAME} = $self->name;
	$args->{NAME}     = $self->module_name || $self->name;
	$args->{VERSION}  = $self->version;
	$args->{NAME}     =~ s/-/::/g;
	if ( $self->tests ) {
		$args->{test} = { TESTS => $self->tests };
	}
	if ( $] >= 5.005 ) {
		$args->{ABSTRACT} = $self->abstract;
		$args->{AUTHOR}   = $self->author;
	}
	if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
		$args->{NO_META} = 1;
	}
	if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
		$args->{SIGN} = 1;
	}
	unless ( $self->is_admin ) {
		delete $args->{SIGN};
	}

	# Merge both kinds of requires into prereq_pm
	my $prereq = ($args->{PREREQ_PM} ||= {});
	%$prereq = ( %$prereq,
		map { @$_ }
		map { @$_ }
		grep $_,
		($self->configure_requires, $self->build_requires, $self->requires)
	);

	# Remove any reference to perl, PREREQ_PM doesn't support it
	delete $args->{PREREQ_PM}->{perl};

	# merge both kinds of requires into prereq_pm
	my $subdirs = ($args->{DIR} ||= []);
	if ($self->bundles) {
		foreach my $bundle (@{ $self->bundles }) {
			my ($file, $dir) = @$bundle;
			push @$subdirs, $dir if -d $dir;
			delete $prereq->{$file};
		}
	}

	if ( my $perl_version = $self->perl_version ) {
		eval "use $perl_version; 1"
			or die "ERROR: perl: Version $] is installed, "
			. "but we need version >= $perl_version";
	}

	$args->{INSTALLDIRS} = $self->installdirs;

	my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;

	my $user_preop = delete $args{dist}->{PREOP};
	if (my $preop = $self->admin->preop($user_preop)) {
		foreach my $key ( keys %$preop ) {
			$args{dist}->{$key} = $preop->{$key};
		}
	}

	my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
	$self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile {
	my $self          = shift;
	my $makefile_name = shift;
	my $top_class     = ref($self->_top) || '';
	my $top_version   = $self->_top->VERSION || '';

	my $preamble = $self->preamble
		? "# Preamble by $top_class $top_version\n"
			. $self->preamble
		: '';
	my $postamble = "# Postamble by $top_class $top_version\n"
		. ($self->postamble || '');

	local *MAKEFILE;
	open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
	my $makefile = do { local $/; <MAKEFILE> };
	close MAKEFILE or die $!;

	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
	$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
	$makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
	$makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
	$makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

	# Module::Install will never be used to build the Core Perl
	# Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
	# PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
	$makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
	#$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;

	# Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
	$makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g;

	# XXX - This is currently unused; not sure if it breaks other MM-users
	# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

	open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
	print MAKEFILE  "$preamble$makefile$postamble" or die $!;
	close MAKEFILE  or die $!;

	1;
}

sub preamble {
	my ($self, $text) = @_;
	$self->{preamble} = $text . $self->{preamble} if defined $text;
	$self->{preamble};
}

sub postamble {
	my ($self, $text) = @_;
	$self->{postamble} ||= $self->admin->postamble;
	$self->{postamble} .= $text if defined $text;
	$self->{postamble}
}

1;

__END__

#line 394




#line 1
package Module::Install::Metadata;

use strict 'vars';
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
	$VERSION = '0.91';
	@ISA     = 'Module::Install::Base';
	$ISCORE  = 1;
}

my @boolean_keys = qw{
	sign
};

my @scalar_keys = qw{
	name
	module_name
	abstract
	author
	version
	distribution_type
	tests
	installdirs
};

my @tuple_keys = qw{
	configure_requires
	build_requires
	requires
	recommends
	bundles
	resources
};

my @resource_keys = qw{
	homepage
	bugtracker
	repository
};

my @array_keys = qw{
	keywords
};

sub Meta              { shift          }
sub Meta_BooleanKeys  { @boolean_keys  }
sub Meta_ScalarKeys   { @scalar_keys   }
sub Meta_TupleKeys    { @tuple_keys    }
sub Meta_ResourceKeys { @resource_keys }
sub Meta_ArrayKeys    { @array_keys    }

foreach my $key ( @boolean_keys ) {
	*$key = sub {
		my $self = shift;
		if ( defined wantarray and not @_ ) {
			return $self->{values}->{$key};
		}
		$self->{values}->{$key} = ( @_ ? $_[0] : 1 );
		return $self;
	};
}

foreach my $key ( @scalar_keys ) {
	*$key = sub {
		my $self = shift;
		return $self->{values}->{$key} if defined wantarray and !@_;
		$self->{values}->{$key} = shift;
		return $self;
	};
}

foreach my $key ( @array_keys ) {
	*$key = sub {
		my $self = shift;
		return $self->{values}->{$key} if defined wantarray and !@_;
		$self->{values}->{$key} ||= [];
		push @{$self->{values}->{$key}}, @_;
		return $self;
	};
}

foreach my $key ( @resource_keys ) {
	*$key = sub {
		my $self = shift;
		unless ( @_ ) {
			return () unless $self->{values}->{resources};
			return map  { $_->[1] }
			       grep { $_->[0] eq $key }
			       @{ $self->{values}->{resources} };
		}
		return $self->{values}->{resources}->{$key} unless @_;
		my $uri = shift or die(
			"Did not provide a value to $key()"
		);
		$self->resources( $key => $uri );
		return 1;
	};
}

foreach my $key ( grep { $_ ne "resources" } @tuple_keys) {
	*$key = sub {
		my $self = shift;
		return $self->{values}->{$key} unless @_;
		my @added;
		while ( @_ ) {
			my $module  = shift or last;
			my $version = shift || 0;
			push @added, [ $module, $version ];
		}
		push @{ $self->{values}->{$key} }, @added;
		return map {@$_} @added;
	};
}

# Resource handling
my %lc_resource = map { $_ => 1 } qw{
	homepage
	license
	bugtracker
	repository
};

sub resources {
	my $self = shift;
	while ( @_ ) {
		my $name  = shift or last;
		my $value = shift or next;
		if ( $name eq lc $name and ! $lc_resource{$name} ) {
			die("Unsupported reserved lowercase resource '$name'");
		}
		$self->{values}->{resources} ||= [];
		push @{ $self->{values}->{resources} }, [ $name, $value ];
	}
	$self->{values}->{resources};
}

# Aliases for build_requires that will have alternative
# meanings in some future version of META.yml.
sub test_requires     { shift->build_requires(@_) }
sub install_requires  { shift->build_requires(@_) }

# Aliases for installdirs options
sub install_as_core   { $_[0]->installdirs('perl')   }
sub install_as_cpan   { $_[0]->installdirs('site')   }
sub install_as_site   { $_[0]->installdirs('site')   }
sub install_as_vendor { $_[0]->installdirs('vendor') }

sub dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		warn "You MUST provide an explicit true/false value to dynamic_config\n";
		return $self;
	}
	$self->{values}->{dynamic_config} = $_[0] ? 1 : 0;
	return 1;
}

sub perl_version {
	my $self = shift;
	return $self->{values}->{perl_version} unless @_;
	my $version = shift or die(
		"Did not provide a value to perl_version()"
	);

	# Normalize the version
	$version = $self->_perl_version($version);

	# We don't support the reall old versions
	unless ( $version >= 5.005 ) {
		die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n";
	}

	$self->{values}->{perl_version} = $version;
}

#Stolen from M::B
my %license_urls = (
    perl         => 'http://dev.perl.org/licenses/',
    apache       => 'http://apache.org/licenses/LICENSE-2.0',
    artistic     => 'http://opensource.org/licenses/artistic-license.php',
    artistic_2   => 'http://opensource.org/licenses/artistic-license-2.0.php',
    lgpl         => 'http://opensource.org/licenses/lgpl-license.php',
    lgpl2        => 'http://opensource.org/licenses/lgpl-2.1.php',
    lgpl3        => 'http://opensource.org/licenses/lgpl-3.0.html',
    bsd          => 'http://opensource.org/licenses/bsd-license.php',
    gpl          => 'http://opensource.org/licenses/gpl-license.php',
    gpl2         => 'http://opensource.org/licenses/gpl-2.0.php',
    gpl3         => 'http://opensource.org/licenses/gpl-3.0.html',
    mit          => 'http://opensource.org/licenses/mit-license.php',
    mozilla      => 'http://opensource.org/licenses/mozilla1.1.php',
    open_source  => undef,
    unrestricted => undef,
    restrictive  => undef,
    unknown      => undef,
);

sub license {
	my $self = shift;
	return $self->{values}->{license} unless @_;
	my $license = shift or die(
		'Did not provide a value to license()'
	);
	$self->{values}->{license} = $license;

	# Automatically fill in license URLs
	if ( $license_urls{$license} ) {
		$self->resources( license => $license_urls{$license} );
	}

	return 1;
}

sub all_from {
	my ( $self, $file ) = @_;

	unless ( defined($file) ) {
		my $name = $self->name or die(
			"all_from called with no args without setting name() first"
		);
		$file = join('/', 'lib', split(/-/, $name)) . '.pm';
		$file =~ s{.*/}{} unless -e $file;
		unless ( -e $file ) {
			die("all_from cannot find $file from $name");
		}
	}
	unless ( -f $file ) {
		die("The path '$file' does not exist, or is not a file");
	}

	# Some methods pull from POD instead of code.
	# If there is a matching .pod, use that instead
	my $pod = $file;
	$pod =~ s/\.pm$/.pod/i;
	$pod = $file unless -e $pod;

	# Pull the different values
	$self->name_from($file)         unless $self->name;
	$self->version_from($file)      unless $self->version;
	$self->perl_version_from($file) unless $self->perl_version;
	$self->author_from($pod)        unless $self->author;
	$self->license_from($pod)       unless $self->license;
	$self->abstract_from($pod)      unless $self->abstract;

	return 1;
}

sub provides {
	my $self     = shift;
	my $provides = ( $self->{values}->{provides} ||= {} );
	%$provides = (%$provides, @_) if @_;
	return $provides;
}

sub auto_provides {
	my $self = shift;
	return $self unless $self->is_admin;
	unless (-e 'MANIFEST') {
		warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
		return $self;
	}
	# Avoid spurious warnings as we are not checking manifest here.
	local $SIG{__WARN__} = sub {1};
	require ExtUtils::Manifest;
	local *ExtUtils::Manifest::manicheck = sub { return };

	require Module::Build;
	my $build = Module::Build->new(
		dist_name    => $self->name,
		dist_version => $self->version,
		license      => $self->license,
	);
	$self->provides( %{ $build->find_dist_packages || {} } );
}

sub feature {
	my $self     = shift;
	my $name     = shift;
	my $features = ( $self->{values}->{features} ||= [] );
	my $mods;

	if ( @_ == 1 and ref( $_[0] ) ) {
		# The user used ->feature like ->features by passing in the second
		# argument as a reference.  Accomodate for that.
		$mods = $_[0];
	} else {
		$mods = \@_;
	}

	my $count = 0;
	push @$features, (
		$name => [
			map {
				ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_
			} @$mods
		]
	);

	return @$features;
}

sub features {
	my $self = shift;
	while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
		$self->feature( $name, @$mods );
	}
	return $self->{values}->{features}
		? @{ $self->{values}->{features} }
		: ();
}

sub no_index {
	my $self = shift;
	my $type = shift;
	push @{ $self->{values}->{no_index}->{$type} }, @_ if $type;
	return $self->{values}->{no_index};
}

sub read {
	my $self = shift;
	$self->include_deps( 'YAML::Tiny', 0 );

	require YAML::Tiny;
	my $data = YAML::Tiny::LoadFile('META.yml');

	# Call methods explicitly in case user has already set some values.
	while ( my ( $key, $value ) = each %$data ) {
		next unless $self->can($key);
		if ( ref $value eq 'HASH' ) {
			while ( my ( $module, $version ) = each %$value ) {
				$self->can($key)->($self, $module => $version );
			}
		} else {
			$self->can($key)->($self, $value);
		}
	}
	return $self;
}

sub write {
	my $self = shift;
	return $self unless $self->is_admin;
	$self->admin->write_meta;
	return $self;
}

sub version_from {
	require ExtUtils::MM_Unix;
	my ( $self, $file ) = @_;
	$self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
	require ExtUtils::MM_Unix;
	my ( $self, $file ) = @_;
	$self->abstract(
		bless(
			{ DISTNAME => $self->name },
			'ExtUtils::MM_Unix'
		)->parse_abstract($file)
	 );
}

# Add both distribution and module name
sub name_from {
	my ($self, $file) = @_;
	if (
		Module::Install::_read($file) =~ m/
		^ \s*
		package \s*
		([\w:]+)
		\s* ;
		/ixms
	) {
		my ($name, $module_name) = ($1, $1);
		$name =~ s{::}{-}g;
		$self->name($name);
		unless ( $self->module_name ) {
			$self->module_name($module_name);
		}
	} else {
		die("Cannot determine name from $file\n");
	}
}

sub perl_version_from {
	my $self = shift;
	if (
		Module::Install::_read($_[0]) =~ m/
		^
		(?:use|require) \s*
		v?
		([\d_\.]+)
		\s* ;
		/ixms
	) {
		my $perl_version = $1;
		$perl_version =~ s{_}{}g;
		$self->perl_version($perl_version);
	} else {
		warn "Cannot determine perl version info from $_[0]\n";
		return;
	}
}

sub author_from {
	my $self    = shift;
	my $content = Module::Install::_read($_[0]);
	if ($content =~ m/
		=head \d \s+ (?:authors?)\b \s*
		([^\n]*)
		|
		=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
		.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
		([^\n]*)
	/ixms) {
		my $author = $1 || $2;
		$author =~ s{E<lt>}{<}g;
		$author =~ s{E<gt>}{>}g;
		$self->author($author);
	} else {
		warn "Cannot determine author info from $_[0]\n";
	}
}

sub license_from {
	my $self = shift;
	if (
		Module::Install::_read($_[0]) =~ m/
		(
			=head \d \s+
			(?:licen[cs]e|licensing|copyright|legal)\b
			.*?
		)
		(=head\\d.*|=cut.*|)
		\z
	/ixms ) {
		my $license_text = $1;
		my @phrases      = (
			'under the same (?:terms|license) as (?:perl|the perl programming language) itself' => 'perl', 1,
			'GNU general public license'         => 'gpl',         1,
			'GNU public license'                 => 'gpl',         1,
			'GNU lesser general public license'  => 'lgpl',        1,
			'GNU lesser public license'          => 'lgpl',        1,
			'GNU library general public license' => 'lgpl',        1,
			'GNU library public license'         => 'lgpl',        1,
			'BSD license'                        => 'bsd',         1,
			'Artistic license'                   => 'artistic',    1,
			'GPL'                                => 'gpl',         1,
			'LGPL'                               => 'lgpl',        1,
			'BSD'                                => 'bsd',         1,
			'Artistic'                           => 'artistic',    1,
			'MIT'                                => 'mit',         1,
			'proprietary'                        => 'proprietary', 0,
		);
		while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
			$pattern =~ s{\s+}{\\s+}g;
			if ( $license_text =~ /\b$pattern\b/i ) {
				$self->license($license);
				return 1;
			}
		}
	}

	warn "Cannot determine license info from $_[0]\n";
	return 'unknown';
}

sub _extract_bugtracker {
	my @links   = $_[0] =~ m#L<(\Qhttp://rt.cpan.org/\E[^>]+)>#g;
	my %links;
	@links{@links}=();
	@links=keys %links;
	return @links;
}

sub bugtracker_from {
	my $self    = shift;
	my $content = Module::Install::_read($_[0]);
	my @links   = _extract_bugtracker($content);
	unless ( @links ) {
		warn "Cannot determine bugtracker info from $_[0]\n";
		return 0;
	}
	if ( @links > 1 ) {
		warn "Found more than on rt.cpan.org link in $_[0]\n";
		return 0;
	}

	# Set the bugtracker
	bugtracker( $links[0] );
	return 1;
}

sub requires_from {
	my $self     = shift;
	my $content  = Module::Install::_readperl($_[0]);
	my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
	while ( @requires ) {
		my $module  = shift @requires;
		my $version = shift @requires;
		$self->requires( $module => $version );
	}
}

sub test_requires_from {
	my $self     = shift;
	my $content  = Module::Install::_readperl($_[0]);
	my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
	while ( @requires ) {
		my $module  = shift @requires;
		my $version = shift @requires;
		$self->test_requires( $module => $version );
	}
}

# Convert triple-part versions (eg, 5.6.1 or 5.8.9) to
# numbers (eg, 5.006001 or 5.008009).
# Also, convert double-part versions (eg, 5.8)
sub _perl_version {
	my $v = $_[-1];
	$v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e;
	$v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/e;
	$v =~ s/(\.\d\d\d)000$/$1/;
	$v =~ s/_.+$//;
	if ( ref($v) ) {
		# Numify
		$v = $v + 0;
	}
	return $v;
}





######################################################################
# MYMETA Support

sub WriteMyMeta {
	die "WriteMyMeta has been deprecated";
}

sub write_mymeta_yaml {
	my $self = shift;

	# We need YAML::Tiny to write the MYMETA.yml file
	unless ( eval { require YAML::Tiny; 1; } ) {
		return 1;
	}

	# Generate the data
	my $meta = $self->_write_mymeta_data or return 1;

	# Save as the MYMETA.yml file
	print "Writing MYMETA.yml\n";
	YAML::Tiny::DumpFile('MYMETA.yml', $meta);
}

sub write_mymeta_json {
	my $self = shift;

	# We need JSON to write the MYMETA.json file
	unless ( eval { require JSON; 1; } ) {
		return 1;
	}

	# Generate the data
	my $meta = $self->_write_mymeta_data or return 1;

	# Save as the MYMETA.yml file
	print "Writing MYMETA.json\n";
	Module::Install::_write(
		'MYMETA.json',
		JSON->new->pretty(1)->canonical->encode($meta),
	);
}

sub _write_mymeta_data {
	my $self = shift;

	# If there's no existing META.yml there is nothing we can do
	return undef unless -f 'META.yml';

	# We need Parse::CPAN::Meta to load the file
	unless ( eval { require Parse::CPAN::Meta; 1; } ) {
		return undef;
	}

	# Merge the perl version into the dependencies
	my $val  = $self->Meta->{values};
	my $perl = delete $val->{perl_version};
	if ( $perl ) {
		$val->{requires} ||= [];
		my $requires = $val->{requires};

		# Canonize to three-dot version after Perl 5.6
		if ( $perl >= 5.006 ) {
			$perl =~ s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2||0), int($3||0))}e
		}
		unshift @$requires, [ perl => $perl ];
	}

	# Load the advisory META.yml file
	my @yaml = Parse::CPAN::Meta::LoadFile('META.yml');
	my $meta = $yaml[0];

	# Overwrite the non-configure dependency hashs
	delete $meta->{requires};
	delete $meta->{build_requires};
	delete $meta->{recommends};
	if ( exists $val->{requires} ) {
		$meta->{requires} = { map { @$_ } @{ $val->{requires} } };
	}
	if ( exists $val->{build_requires} ) {
		$meta->{build_requires} = { map { @$_ } @{ $val->{build_requires} } };
	}

	return $meta;
}

1;




#line 1
package Module::Install::Win32;

use strict;
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
	$VERSION = '0.91';
	@ISA     = 'Module::Install::Base';
	$ISCORE  = 1;
}

# determine if the user needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');

	require Config;
	return unless (
		$^O eq 'MSWin32'                     and
		$Config::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	die <<'END_MESSAGE' unless $rv;

-------------------------------------------------------------------------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this module.

You may then resume the installation process described in README.

-------------------------------------------------------------------------------
END_MESSAGE

}

1;




#line 1
package Module::Install::WriteAll;

use strict;
use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
	$VERSION = '0.91';;
	@ISA     = qw{Module::Install::Base};
	$ISCORE  = 1;
}

sub WriteAll {
	my $self = shift;
	my %args = (
		meta        => 1,
		sign        => 0,
		inline      => 0,
		check_nmake => 1,
		@_,
	);

	$self->sign(1)                if $args{sign};
	$self->admin->WriteAll(%args) if $self->is_admin;

	$self->check_nmake if $args{check_nmake};
	unless ( $self->makemaker_args->{PL_FILES} ) {
		$self->makemaker_args( PL_FILES => {} );
	}

	# Until ExtUtils::MakeMaker support MYMETA.yml, make sure
	# we clean it up properly ourself.
	$self->realclean_files('MYMETA.yml');

	if ( $args{inline} ) {
		$self->Inline->write;
	} else {
		$self->Makefile->write;
	}

	# The Makefile write process adds a couple of dependencies,
	# so write the META.yml files after the Makefile.
	if ( $args{meta} ) {
		$self->Meta->write;
	}

	# Experimental support for MYMETA
	if ( $ENV{X_MYMETA} ) {
		if ( $ENV{X_MYMETA} eq 'JSON' ) {
			$self->Meta->write_mymeta_json;
		} else {
			$self->Meta->write_mymeta_yaml;
		}
	}

	return 1;
}

1;




#line 1
package Module::Install;

# For any maintainers:
# The load order for Module::Install is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Install installed, creating author mode ) {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
#     3. The installed version of inc::Module::Install loads
#     4. inc::Module::Install calls "require Module::Install"
#     5. The ./inc/ version of Module::Install loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ version of Module::Install loads
# }

use 5.005;
use strict 'vars';

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.
	$VERSION = '0.91';

	# Storage for the pseudo-singleton
	$MAIN    = undef;

	*inc::Module::Install::VERSION = *VERSION;
	@inc::Module::Install::ISA     = __PACKAGE__;

}





# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the caller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) { die <<"END_DIE" }

Please invoke ${\__PACKAGE__} with:

	use inc::${\__PACKAGE__};

not:

	use ${\__PACKAGE__};

END_DIE





# If the script that is loading Module::Install is from the future,
# then make will detect this and cause it to re-run over and over
# again. This is bad. Rather than taking action to touch it (which
# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
	my $s = (stat($0))[9];

	# If the modification time is only slightly in the future,
	# sleep briefly to remove the problem.
	my $a = $s - time;
	if ( $a > 0 and $a < 5 ) { sleep 5 }

	# Too far in the future, throw an error.
	my $t = time;
	if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

This is known to create infinite loops in make.

Please correct this, then run $0 again.

END_DIE
}





# Build.PL was formerly supported, but no longer is due to excessive
# difficulty in implementing every single feature twice.
if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" }

Module::Install no longer supports Build.PL.

It was impossible to maintain duel backends, and has been deprecated.

Please remove all Build.PL files and only use the Makefile.PL installer.

END_DIE





# To save some more typing in Module::Install installers, every...
# use inc::Module::Install
# ...also acts as an implicit use strict.
$^H |= strict::bits(qw(refs subs vars));





use Cwd        ();
use File::Find ();
use File::Path ();
use FindBin;

sub autoload {
	my $self = shift;
	my $who  = $self->_caller;
	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
		my $method = $1;
		if ( uc($method) eq $method ) {
			# Do nothing
			return;
		} elsif ( $method =~ /^_/ and $self->can($method) ) {
			# Dispatch to the root M:I class
			return $self->$method(@_);
		}

		# Dispatch to the appropriate plugin
		unshift @_, ( $self, $1 );
		goto &{$self->can('call')};
	};
}

sub import {
	my $class = shift;
	my $self  = $class->new(@_);
	my $who   = $self->_caller;

	unless ( -f $self->{file} ) {
		require "$self->{path}/$self->{dispatch}.pm";
		File::Path::mkpath("$self->{prefix}/$self->{author}");
		$self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
		$self->{admin}->init;
		@_ = ($class, _self => $self);
		goto &{"$self->{name}::import"};
	}

	*{"${who}::AUTOLOAD"} = $self->autoload;
	$self->preload;

	# Unregister loader and worker packages so subdirs can use them again
	delete $INC{"$self->{file}"};
	delete $INC{"$self->{path}.pm"};

	# Save to the singleton
	$MAIN = $self;

	return 1;
}

sub preload {
	my $self = shift;
	unless ( $self->{extensions} ) {
		$self->load_extensions(
			"$self->{prefix}/$self->{path}", $self
		);
	}

	my @exts = @{$self->{extensions}};
	unless ( @exts ) {
		@exts = $self->{admin}->load_all_extensions;
	}

	my %seen;
	foreach my $obj ( @exts ) {
		while (my ($method, $glob) = each %{ref($obj) . '::'}) {
			next unless $obj->can($method);
			next if $method =~ /^_/;
			next if $method eq uc($method);
			$seen{$method}++;
		}
	}

	my $who = $self->_caller;
	foreach my $name ( sort keys %seen ) {
		*{"${who}::$name"} = sub {
			${"${who}::AUTOLOAD"} = "${who}::$name";
			goto &{"${who}::AUTOLOAD"};
		};
	}
}

sub new {
	my ($class, %args) = @_;

	# ignore the prefix on extension modules built from top level.
	my $base_path = Cwd::abs_path($FindBin::Bin);
	unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
		delete $args{prefix};
	}

	return $args{_self} if $args{_self};

	$args{dispatch} ||= 'Admin';
	$args{prefix}   ||= 'inc';
	$args{author}   ||= ($^O eq 'VMS' ? '_author' : '.author');
	$args{bundle}   ||= 'inc/BUNDLES';
	$args{base}     ||= $base_path;
	$class =~ s/^\Q$args{prefix}\E:://;
	$args{name}     ||= $class;
	$args{version}  ||= $class->VERSION;
	unless ( $args{path} ) {
		$args{path}  = $args{name};
		$args{path}  =~ s!::!/!g;
	}
	$args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";
	$args{wrote}      = 0;

	bless( \%args, $class );
}

sub call {
	my ($self, $method) = @_;
	my $obj = $self->load($method) or return;
        splice(@_, 0, 2, $obj);
	goto &{$obj->can($method)};
}

sub load {
	my ($self, $method) = @_;

	$self->load_extensions(
		"$self->{prefix}/$self->{path}", $self
	) unless $self->{extensions};

	foreach my $obj (@{$self->{extensions}}) {
		return $obj if $obj->can($method);
	}

	my $admin = $self->{admin} or die <<"END_DIE";
The '$method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
END_DIE

	my $obj = $admin->load($method, 1);
	push @{$self->{extensions}}, $obj;

	$obj;
}

sub load_extensions {
	my ($self, $path, $top) = @_;

	unless ( grep { ! ref $_ and lc $_ eq lc $self->{prefix} } @INC ) {
		unshift @INC, $self->{prefix};
	}

	foreach my $rv ( $self->find_extensions($path) ) {
		my ($file, $pkg) = @{$rv};
		next if $self->{pathnames}{$pkg};

		local $@;
		my $new = eval { require $file; $pkg->can('new') };
		unless ( $new ) {
			warn $@ if $@;
			next;
		}
		$self->{pathnames}{$pkg} = delete $INC{$file};
		push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
	}

	$self->{extensions} ||= [];
}

sub find_extensions {
	my ($self, $path) = @_;

	my @found;
	File::Find::find( sub {
		my $file = $File::Find::name;
		return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
		my $subpath = $1;
		return if lc($subpath) eq lc($self->{dispatch});

		$file = "$self->{path}/$subpath.pm";
		my $pkg = "$self->{name}::$subpath";
		$pkg =~ s!/!::!g;

		# If we have a mixed-case package name, assume case has been preserved
		# correctly.  Otherwise, root through the file to locate the case-preserved
		# version of the package name.
		if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
			my $content = Module::Install::_read($subpath . '.pm');
			my $in_pod  = 0;
			foreach ( split //, $content ) {
				$in_pod = 1 if /^=\w/;
				$in_pod = 0 if /^=cut/;
				next if ($in_pod || /^=cut/);  # skip pod text
				next if /^\s*#/;               # and comments
				if ( m/^\s*package\s+($pkg)\s*;/i ) {
					$pkg = $1;
					last;
				}
			}
		}

		push @found, [ $file, $pkg ];
	}, $path ) if -d $path;

	@found;
}





#####################################################################
# Common Utility Functions

sub _caller {
	my $depth = 0;
	my $call  = caller($depth);
	while ( $call eq __PACKAGE__ ) {
		$depth++;
		$call = caller($depth);
	}
	return $call;
}

sub _read {
	local *FH;
	if ( $] >= 5.006 ) {
		open( FH, '<', $_[0] ) or die "open($_[0]): $!";
	} else {
		open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
	}
	my $string = do { local $/; <FH> };
	close FH or die "close($_[0]): $!";
	return $string;
}

sub _readperl {
	my $string = Module::Install::_read($_[0]);
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
	$string =~ s/(\n)\n*__(?:DATA|END)__\b.*\z/$1/s;
	$string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg;
	return $string;
}

sub _readpod {
	my $string = Module::Install::_read($_[0]);
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
	return $string if $_[0] =~ /\.pod\z/;
	$string =~ s/(^|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+|\z)/$1$2/sg;
	$string =~ s/\n*=pod\b[^\n]*\n+/\n\n/sg;
	$string =~ s/\n*=cut\b[^\n]*\n+/\n\n/sg;
	$string =~ s/^\n+//s;
	return $string;
}

sub _write {
	local *FH;
	if ( $] >= 5.006 ) {
		open( FH, '>', $_[0] ) or die "open($_[0]): $!";
	} else {
		open( FH, "> $_[0]"  ) or die "open($_[0]): $!";
	}
	foreach ( 1 .. $#_ ) {
		print FH $_[$_] or die "print($_[0]): $!";
	}
	close FH or die "close($_[0]): $!";
}

# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
sub _version ($) {
	my $s = shift || 0;
	my $d =()= $s =~ /(\.)/g;
	if ( $d >= 2 ) {
		# Normalise multipart versions
		$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
	}
	$s =~ s/^(\d+)\.?//;
	my $l = $1 || 0;
	my @v = map {
		$_ . '0' x (3 - length $_)
	} $s =~ /(\d{1,3})\D?/g;
	$l = $l . '.' . join '', @v if @v;
	return $l + 0;
}

sub _cmp ($$) {
	_version($_[0]) <=> _version($_[1]);
}

# Cloned from Params::Util::_CLASS
sub _CLASS ($) {
	(
		defined $_[0]
		and
		! ref $_[0]
		and
		$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
	) ? $_[0] : undef;
}

1;

# Copyright 2008 - 2009 Adam Kennedy.




package Test::Module::Used;
use base qw(Exporter);
use strict;
use warnings;
use File::Find;
use File::Spec::Functions qw(catfile);
use Module::Used qw(modules_used_in_document);
use Module::CoreList;
use YAML;
use Test::Builder;
use List::MoreUtils qw(any);
use PPI::Document;
use version;

use 5.008;
our $VERSION = '0.1.8';

=head1 NAME

Test::Module::Used - Test required module is really used and vice versa bitween lib/t and META.yml

=head1 SYNOPSIS

  #!/usr/bin/perl -w
  use strict;
  use warnings;
  use Test::Module::Used;
  my $used = Test::Module::Used->new();
  $used->ok;


=head1 DESCRIPTION

Test dependency between module and META.yml.

This module reads I<META.yml> and get I<build_requires> and I<requires>. It compares required module is really used and used module is really required.

=cut

=head1 Important changes

Some behavier changed since 0.1.3_01.

=over 4

=item * perl_version set in constructor is prior to use, and read version from META.yml(not read from use statement in *.pm)

=item * deprecated interfaces are deleted. (module_dir, test_module_dir, exclude_in_moduledir and push_exclude_in_moduledir)

=back

=cut

=head1 methods

=cut

=head2 new

create new instance

all parameters are passed by hash-style, and optional.

in ordinary use.

  my $used = Test::Module::Used->new();
  $used->ok();

all parameters are as follows.(specified values are default, except I<exclude_in_testdir>)

  my $used = Test::Module::Used->new(
    test_dir     => ['t'],            # directory(ies) which contains test scripts.
    lib_dir      => ['lib'],          # directory(ies) which contains module libs.
    test_lib_dir => ['t'],            # directory(ies) which contains libs used ONLY in test (ex. MockObject for test)
    meta_file    => 'META.yml',       # META.yml (contains module requirement information)
    perl_version => '5.008',          # expected perl version which is used for ignore core-modules in testing
    exclude_in_testdir => [],         # ignored module(s) for test even if it is used.
    exclude_in_libdir   => [],        # ignored module(s) for your lib even if it is used.
    exclude_in_build_requires => [],  # ignored module(s) even if it is written in build_requires of META.yml.
    exclude_in_requires => [],        # ignored module(s) even if it is written in requires of META.yml.
  );

if perl_version is not passed in constructor, this modules reads I<meta_file> and get perl version. 

I<exclude_in_testdir> is automatically set by default. This module reads I<lib_dir> and parse "pacakge" statement, then found "package" statements and myself(Test::Module::Used) is set.
I<exclude_in_libdir> is also automatically set by default. This module reads I<lib_dir> and parse "package" statement, found "package" statement are set.(Test::Module::Used isnt included)

=cut

sub new {
    my $class = shift;
    my (%opt) = @_;
    my $self = {
        test_dir     => $opt{test_dir}     || ['t'],
        lib_dir      => $opt{lib_dir}      || ['lib'],
        test_lib_dir => $opt{test_lib_dir} || ['t'],
        meta_file    => $opt{meta_file}    || 'META.yml',
        perl_version => $opt{perl_version},
        exclude_in_testdir        => $opt{exclude_in_testdir},
        exclude_in_libdir         => $opt{exclude_in_libdir},
        exclude_in_build_requires => $opt{exclude_in_build_requires} || [],
        exclude_in_requires       => $opt{exclude_in_requires}       || [],
    };
    bless $self, $class;
    $self->_get_packages();
    return $self;
}


sub _test_dir {
    return shift->{test_dir};
}

sub _lib_dir {
    return shift->{lib_dir};
}

sub _test_lib_dir {
    return shift->{test_lib_dir};
}

sub _meta_file {
    return shift->{meta_file};
}

sub _perl_version {
    return shift->{perl_version};
}

=head2 ok

check used module is ok.

  my $used = Test::Module::Used->new(
    exclude_in_testdir => ['Test::Module::Used', 'My::Module'],
  );
  $used->ok;


First, This module reads I<META.yml> and get I<build_requires> and I<requires>. Next, reads module directory (by default I<lib>) and test directory(by default I<t>), and compare required module is really used and used module is really required. If all these requirement information is OK, test will success.

=cut

sub ok {
    my $self = shift;
    my $test = Test::Builder->new();


    my $num_tests = $self->_num_tests();
    if ( $num_tests > 0 ) {
        $test->plan(tests => $num_tests);
        my $status_requires_ok       = $self->_requires_ok($test,
                                                           [$self->_remove_core($self->_used_modules)],
                                                           [$self->_remove_core($self->_requires)],
                                                           "lib");
        my $status_build_requires_ok = $self->_requires_ok($test,
                                                           [$self->_remove_core($self->_used_modules_in_test)],
                                                           [$self->_remove_core($self->_build_requires)],
                                                           "test");
        return $status_requires_ok && $status_build_requires_ok;
    }
    else {
        $test->plan(tests => 1);
        $test->ok(1, "no tests run");
        return 1;
    }
}

=head2 push_exclude_in_libdir( @exclude_module_names )

add ignored module(s) for your module(lib) even if it is used after new()'ed.
this is usable if you want to use auto set feature for I<exclude_in_libdir> but manually specify exclude modules.

For example,

 my $used = Test::Module::Used->new(); #automatically set exclude_in_libdir
 $used->push_exclude_in_libdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
 $used->ok(); #do test

=cut

sub push_exclude_in_libdir {
    my $self = shift;
    my @exclude_module_names = @_;
    push @{$self->{exclude_in_libdir}},@exclude_module_names;
}



=head2 push_exclude_in_testdir( @exclude_module_names )

add ignored module(s) for test even if it is used after new()'ed.
this is usable if you want to use auto set feature for I<exclude_in_testdir> but manually specify exclude modules.

For example,

 my $used = Test::Module::Used->new(); #automatically set exclude_in_testdir
 $used->push_exclude_in_testdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
 $used->ok(); #do test

=cut

sub push_exclude_in_testdir {
    my $self = shift;
    my @exclude_module_names = @_;
    push @{$self->{exclude_in_testdir}},@exclude_module_names;
}

sub _version {
    my $self = shift;
    if ( !defined $self->{version} ) {
        $self->{version} = $self->_perl_version || $self->_version_from_meta || "5.008000";
    }
    return $self->{version};
}

sub _num_tests {
    my $self = shift;

    return scalar($self->_remove_core($self->_used_modules,
                                      $self->_requires,
                                      $self->_used_modules_in_test,
                                      $self->_build_requires));
}

sub _requires_ok {
    my $self = shift;
    my ($test, $used_aref, $requires_aref, $place) = @_;

    my $status1 = $self->_check_required_but_not_used($test, $requires_aref, $used_aref, $place);
    my $status2 = $self->_check_used_but_not_required($test, $requires_aref, $used_aref, $place);

    return $status1 && $status2;
}


sub _check_required_but_not_used {
    my $self = shift;
    my ($test, $requires_aref, $used_aref, $place) = @_;
    my @requires = @{$requires_aref};
    my @used     = @{$used_aref};

    my $result = 1;
    for my $require ( @requires ) {
        my $status = any { $_ eq $require } @used;
        $test->ok( $status, "check required module: $require" );
        if ( !$status ) {
            $test->diag("module $require is required but not used in $place");
            $result = 0;
        }
    }
    return $result;
}

sub _check_used_but_not_required {
    my $self = shift;
    my ($test, $requires_aref, $used_aref, $place) = @_;
    my @requires = @{$requires_aref};
    my @used     = @{$used_aref};

    my $result = 1;
    for my $used ( @used ) {
        my $status = any { $_ eq $used } @requires;
        $test->ok( $status, "check used module: $used" );
        if ( !$status ) {
            $test->diag("module $used is used in $place but not required");
            $result = 0;
        }
    }
    return $result;
}

sub _pm_files {
    my $self = shift;
    if ( !defined $self->{pm_files} ) {
        my @files = $self->_find_files_by_ext($self->_lib_dir, qr/\.pm$/);
        $self->{pm_files} = \@files;
    }
    return @{$self->{pm_files}};
}

sub _pm_files_in_test {
    my $self = shift;
    if ( !defined $self->{pm_files_in_test} ) {
        my @files = $self->_find_files_by_ext($self->_test_lib_dir, qr/\.pm$/);
        $self->{pm_files_in_test} = \@files;
    }
    return @{$self->{pm_files_in_test}};
}

sub _test_files {
    my $self = shift;
    return $self->_find_files_by_ext($self->_test_dir, qr/\.t$/);
}

sub _find_files_by_ext {
    my $self = shift;
    my ($start_dirs_aref, $ext_qr) = @_;
    my @result;
    find( sub {
              push @result, catfile($File::Find::dir, $_) if ( $_ =~ $ext_qr );
          },
          @{$start_dirs_aref});
    return @result;
}

sub _used_modules {
    my $self = shift;
    if ( !defined $self->{used_modules} ) {
        my @used = map { modules_used_in_document($self->_ppi_for($_)) } $self->_pm_files;
        my @result = _array_difference(\@used, $self->{exclude_in_libdir});
        $self->{used_modules} = \@result;
    }
    return @{$self->{used_modules}};
}

sub _used_modules_in_test {
    my $self = shift;
    if ( !defined $self->{used_modules_in_test} ) {
        my @used = map { modules_used_in_document($self->_ppi_for($_)) } $self->_test_files;
        my @result = _array_difference(\@used, $self->{exclude_in_testdir});
        $self->{used_modules_in_test} = \@result;
    }
    return @{$self->{used_modules_in_test}};
}

sub _array_difference {
    my ( $aref1, $aref2 ) = @_;
    my @a1 = @{$aref1};
    my @a2 = @{$aref2};

    for my $a2 ( @a2 ) {
        @a1 = grep { $_ ne $a2 } @a1;
    }
    return @a1;
}

sub _version_from_meta {
    my $self = shift;
    return $self->{version_from_meta};
}

sub _remove_core {
    my $self = shift;
    my( @module_names ) = @_;
    my @result = grep {  !$self->_is_core_module($_) } @module_names;
    return @result;
}

sub _is_core_module {
    my $self = shift;
    my($module_name) = @_;
    my $first_release = Module::CoreList->first_release($module_name);
    return defined $first_release && $first_release <= $self->_version;
}

sub _read_meta_yml {
    my $self = shift;
    my $yaml = YAML::LoadFile( $self->_meta_file );
    $self->{build_requires} = $yaml->{build_requires};
    $self->{version_from_meta} = version->parse($yaml->{requires}->{perl})->numify() if defined $yaml->{requires}->{perl};
    delete $yaml->{requires}->{perl};
    $self->{requires} = $yaml->{requires};
}

sub _build_requires {
    my $self = shift;

    $self->_read_meta_yml if !defined $self->{build_requires};
    my @result = sort keys %{$self->{build_requires}};
    return _array_difference(\@result, $self->{exclude_in_build_requires});
}

sub _requires {
    my $self = shift;

    $self->_read_meta_yml if !defined $self->{requires};
    my @result = sort keys %{$self->{requires}};
    return _array_difference(\@result, $self->{exclude_in_requires});
}

# find package statements in lib
sub _get_packages {
    my $self = shift;
    my @packages = $self->_packages_in( $self->_pm_files );
    my @exclude_in_testdir = (__PACKAGE__, @packages, $self->_packages_in($self->_pm_files_in_test));
    $self->push_exclude_in_testdir(@exclude_in_testdir) if ( !defined $self->{exclude_in_testdir} );
    $self->push_exclude_in_libdir(@packages)            if ( !defined $self->{exclude_in_libdir} );
}

sub _packages_in {
    my $self = shift;
    my ( @filenames ) = @_;

    my @result;
    for my $filename ( @filenames ) {
        my @packages = $self->_packages_in_file($filename);
        push @result, @packages;
    }
    return @result;
}

sub _packages_in_file {
    my $self = shift;
    my ( $filename ) = @_;

    my $doc = $self->_ppi_for($filename);
    my $packages = $doc->find('PPI::Statement::Package');
    return if ( $packages eq '' );

    my @result;
    for my $item ( @{$packages} ) {
        for my $token ( @{$item->{children}} ) {
            next if ( !$token->isa('PPI::Token::Word') );
            next if ( $token->content eq 'package' );
            push @result, $token->content;
        }
    }
    return @result;
}

# PPI::Document object for $filename
sub _ppi_for {
    my $self = shift;
    my ($filename) = @_;
    if ( !defined $self->{ppi_for}->{$filename} ) {
        my $doc = PPI::Document->new($filename);
        $self->{ppi_for}->{$filename} = $doc;
    }
    return $self->{ppi_for}->{$filename};
}


1;
__END__

=head1 AUTHOR

Takuya Tsuchida E<lt>tsucchi@cpan.orgE<gt>

=head1 SEE ALSO

L<Test::Dependencies> has almost same feature.

=head1 REPOSITORY

L<http://github.com/tsucchi/Test-Module-Used>


=head1 COPYRIGHT AND LICENSE

Copyright (c) 2008-2010 Takuya Tsuchida

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

Lines 1-7 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/t/001_use_ok.t (-7 lines)
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4	use Test::More tests=>1;
5
6	BEGIN { use_ok('Test::Module::Used') };
7




#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 4;
use Test::Module::Used;

my $used = Test::Module::Used->new();

is_deeply($used->_test_dir, ['t']);#default directory for test
is_deeply($used->_lib_dir, ['lib']);
is($used->_meta_file, 'META.yml');
is($used->_version, '5.008000');




#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests=> 5;
use Test::Module::Used;
use File::Spec::Functions qw(catfile);

my $used = Test::Module::Used->new(
    test_dir     => ['t', 'xt'],
    lib_dir      => ['lib', catfile('testdata', 'lib')],
    meta_file    => 'Meta.yml',
    perl_version => '5.010',
);

is_deeply($used->_test_dir, ['t', 'xt']);
is_deeply($used->_lib_dir, ['lib', catfile('testdata', 'lib')]);
is($used->_meta_file, 'Meta.yml');
is($used->_perl_version, '5.010');
is($used->_version, '5.010');





#!/usr/bin/perl -w
use strict;
use warnings;
use Test::Module::Used;
use File::Spec::Functions qw(catfile);

my $used = Test::Module::Used->new(
    lib_dir    => [catfile('testdata', 'lib')],
    test_dir   => [catfile('testdata', 't')],
    meta_file  => catfile('testdata', 'META.yml2'),
    exclude_in_testdir => ['SampleModule'],
);

$used->ok;




#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests=>10;
use File::Spec::Functions qw(catfile);
use Test::Module::Used;

my $used = Test::Module::Used->new(
    lib_dir    => [catfile('testdata', 'lib')],
    test_dir   => [catfile('testdata', 't')],
    perl_version => '5.008',
);
is_deeply([$used->_pm_files], [catfile('testdata', 'lib', 'SampleModule.pm')]);
is_deeply([$used->_test_files],   [catfile('testdata', 't', '001_test.t')]);
is_deeply([$used->_used_modules()], [qw(Net::FTP Module::Used Test::Module::Used)]);
is_deeply([$used->_used_modules_in_test()], [qw(Test::More Test::Class)]);# SampleModule is ignored
is($used->_version, '5.008');# used version

is_deeply( [$used->_remove_core(qw(Module::Used Net::FTP Test::Module::Used))],
           ['Module::Used', 'Test::Module::Used'] );



# exclude
my $used2 = Test::Module::Used->new(
    lib_dir    => [catfile('testdata', 'lib')],
    test_dir   => [catfile('testdata', 't')],
    exclude_in_libdir => ['Module::Used'],
    exclude_in_testdir   => ['Test::Class'],
);
is_deeply([$used2->_used_modules()], [qw(Net::FTP Test::Module::Used)]);
is_deeply([$used2->_used_modules_in_test()], [qw(Test::More SampleModule)]);

# exclude after constructed
my $used3 = Test::Module::Used->new(
    lib_dir  => [catfile('testdata', 'lib')],
    test_dir => [catfile('testdata', 't')],
);
$used3->push_exclude_in_libdir(qw(Module::Used Net::FTP));
is_deeply([$used3->_used_modules()], [qw(Test::Module::Used)]);
$used3->push_exclude_in_testdir( qw(Test::More Test::Class) );
is_deeply([$used3->_used_modules_in_test()], []);




#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests=>8;
use Test::Module::Used;
use File::Spec::Functions qw(catfile);

my $used = Test::Module::Used->new(
    meta_file => catfile('testdata', 'META.yml'),
);
$used->_read_meta_yml();
is_deeply( [$used->_build_requires()],
           ['ExtUtils::MakeMaker', 'Test::More'] );

is_deeply( [$used->_requires()],
           ['Module::Used', 'PPI::Document'] );#perl 5.8.0 isn't return
is($used->_version_from_meta(), "5.008000");
is($used->_version, "5.008000");

my $used2 = Test::Module::Used->new(
    meta_file => catfile('testdata', 'META.yml2'),
);
$used2->_read_meta_yml();
is_deeply( [$used2->_build_requires()],
           ['ExtUtils::MakeMaker', 'Test::Class', 'Test::More' ] );

is_deeply( [$used2->_requires()],
           ['Module::Used', 'Test::Module::Used'] );#perl 5.8.0 isn't return


# exclude
my $used3 = Test::Module::Used->new(
    meta_file => catfile('testdata', 'META.yml2'),
    exclude_in_build_requires => ['Test::Class'],
    exclude_in_requires       => ['Module::Used'],
);
$used3->_read_meta_yml();
is_deeply( [$used3->_build_requires()],
           ['ExtUtils::MakeMaker', 'Test::More' ] );

is_deeply( [$used3->_requires()],
           ['Test::Module::Used'] );#perl 5.8.0 isn't return



Lines 1-10 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/t/007_test_myself.t (-10 lines)
1	#!/usr/bin/perl -w
2	use strict;
3	use warnings;
4
5	use Test::Module::Used;
6
7	my $used = Test::Module::Used->new(
8	exclude_in_testdir => ['Test::Module::Used'],
9	);
10	$used->ok;




#!/usr/bin/perl -w
use strict;
use warnings;
use Test::Module::Used;
use File::Spec::Functions qw(catfile);

my $used = Test::Module::Used->new(
    test_dir  => [catfile('testdata', 't2')],
    lib_dir   => [catfile('testdata', 'lib2')],
    meta_file => catfile('testdata', 'META.yml3'),
    exclude_in_testdir => ['Test::Module::Used'],
);

$used->ok;




#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 7;
use Test::Module::Used;
use File::Spec::Functions qw(catfile);

my $used = Test::Module::Used->new(
    test_dir  => [catfile('testdata', 't2')],
    lib_dir   => [catfile('testdata', 'lib2')],
    meta_file => catfile('testdata', 'META.yml3'),
);


is_deeply([$used->_packages_in($used->_pm_files)], ['My::Test']);
$used->_get_packages;
is_deeply($used->{exclude_in_testdir}, ['Test::Module::Used', 'My::Test']);
is_deeply($used->{exclude_in_libdir}, ['My::Test']);

my $used1 = Test::Module::Used->new(
    test_dir  => [catfile('testdata', 't2')],
    lib_dir   => [catfile('testdata', 'lib2')],
    test_lib_dir => [catfile('testdata', 't2', 'lib')],
    meta_file => catfile('testdata', 'META.yml3'),
);

is_deeply([$used1->_packages_in($used1->_pm_files)], ['My::Test']);
is_deeply([$used1->_packages_in($used1->_pm_files_in_test)], ['My::Test2']);
$used1->_get_packages;
is_deeply($used1->{exclude_in_testdir}, ['Test::Module::Used', 'My::Test', 'My::Test2']);
is_deeply($used1->{exclude_in_libdir}, ['My::Test']);



Lines 1-8 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/t/010_test_myself2.t (-8 lines)
1	#!/usr/bin/perl -w
2	use strict;
3	use warnings;
4
5	use Test::Module::Used;
6
7	my $used = Test::Module::Used->new();
8	$used->ok;




---
abstract: 'Test dependency between module and META.yml'
author:
  - 'Takuya Tsuchida tsucchi@cpan.org'
build_requires:
  ExtUtils::MakeMaker: 6.42
  Test::More: 0.88
configure_requires:
  ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 0.91'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Test-Module-Used
no_index:
  directory:
    - inc
    - t
    - xt
requires:
  Module::Used: 0
  PPI::Document: 0
  perl: 5.8.0
resources:
  license: http://dev.perl.org/licenses/
version: 0.0.1




---
abstract: 'Test dependency between module and META.yml'
author:
  - 'Takuya Tsuchida tsucchi@cpan.org'
build_requires:
  ExtUtils::MakeMaker: 6.42
  Test::More: 0.88
  Test::Class: 0
configure_requires:
  ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 0.91'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Test-Module-Used
no_index:
  directory:
    - inc
    - t
    - xt
requires:
  Module::Used: 0
  Test::Module::Used: 0
  perl: 5.8.0
resources:
  license: http://dev.perl.org/licenses/
version: 0.0.1




---
abstract: 'write description here'
author:
  - 'Takuya Tsuchida E<lt>takuya.tsuchida@gmail.com<gt>'
build_requires:
  ExtUtils::MakeMaker: 6.42
  Test::More: 0.88
configure_requires:
  ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 0.91'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: My-Test
no_index:
  directory:
    - inc
    - t
    - xt
requires:
  perl: 5.8.0
resources:
  license: http://dev.perl.org/licenses/
version: 0.0.1

Lines 1-10 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/testdata/lib/SampleModule.pm (-10 lines)
1	package SampleModule;
2	use Net::FTP; #core
3	use Module::Used;#not core
4	use Test::Module::Used;#not core
5
6	use 5.00803;# perl version
7
8	sub do_nothing {}
9
10	1;




package My::Test;
use strict;
use warnings;

our $VERSION = "0.0.1";
#use 5.008;

=head1 NAME

My::Test - write description here

=head1 SYNOPSIS

write synopsis here

=head1 DESCRIPTION

write description here
=cut


1;
__END__

=head1 AUTHOR

Takuya Tsuchida E<lt>takuya.tsuchida@gmail.com<gt>

=head1 SEE ALSO

write here if related module exists

=head1 REPOSITORY

write source code repository

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

Lines 1-6 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/testdata/t/001_test.t (-6 lines)
1	#!/usr/bin/perl -w
2	use Test::More;
3	use Test::Class;
4	use SampleModule;
5
6	ok(1);

Lines 1-7 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/testdata/t2/001_use_ok.t (-7 lines)
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4	use Test::More;
5
6	BEGIN { use_ok('My::Test') };
7	done_testing();

Lines 1-2 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/testdata/t2/lib/My/Test2.pm (-2 lines)
1	package My::Test2;
2	1;

Return to bug 143527

Lines 1-106 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/ChangeLog (-106 lines)
1	2010-01-12 Takuya Tsuchida <tsucchi@cpan.org>
2
3	* 0.1.8
4	remove executable permission in Makefile.PL
5
6	2010-01-03 Takuya Tsuchida <tsucchi@cpan.org>
7	* 0.1.7
8	add repository in Makefile.PL
9	(merge from git://github.com/cpanservice/Test-Module-Used.git)
10
11	* 0.1.6
12	fix: add copyright information(for RT#53290)
13
14	2009-12-30 Takuya Tsuchida <tsucchi@cpan.org>
15
16	* 0.1.5
17	fix: insufficient version of version.pm specified.
18
19	2009-12-25 Takuya Tsuchida <tsucchi@cpan.org>
20
21	* 0.1.4
22	improve error messages when test fails.
23
24	2009-12-24 Takuya Tsuchida <tsucchi@cpan.org>
25
26	* 0.1.3_02
27	fix: POD structure(chaptering) is insufficient.
28
29
30	2009-12-24 Takuya Tsuchida <tsucchi@cpan.org>
31
32	* 0.1.3_01
33	deprecated parameters are deleted
34	read perl version from META.yml and NOT from *.pm
35
36	2009-12-09 Takuya Tsuchida <tsucchi@cpan.org>
37
38	* 0.1.2
39	add parameter 'test_lib_dir' in constructor
40	and automatically push exclude_in_testdir to modules which are in
41	test_lib_dir.
42
43	2009-12-07 Takuya Tsuchida <tsucchi@cpan.org>
44
45	* 0.1.1
46	fix: failed if package statement doesn't exist in *.pm file.
47
48	2009-12-07 Takuya Tsuchida <tsucchi@cpan.org>
49
50	* 0.1.0
51	fix: fix again test failed in windows environment
52	remove all slash directory separator, and instead of using catfile().
53
54	2009-12-04 Takuya Tsuchida <tsucchi@cpan.org>
55
56	* 0.0.9
57	fix: test failed in windows environment
58
59	2009-12-02 Takuya Tsuchida <tsucchi@cpan.org>
60
61	* 0.0.8
62	implement push_exclude_in_{test,module}dir(), it enables
63	set exclude_in_{test,module}dir after new()
64
65	2009-12-01 Takuya Tsuchida <tsucchi@cpan.org>
66
67	* 0.0.7
68	fix: bugs in version fetching from file.
69
70	2009-11-29 Takuya Tsuchida <tsucchi@cpan.org>
71
72	* 0.0.6
73	refactoring methods and some optimization
74	find bug in handling core module
75
76	2009-11-28 Takuya Tsuchida <tsucchi@cpan.org>
77
78	* 0.0.5
79	fix: test faild in windows environment
80
81	2009-11-27 Takuya Tsuchida <tsucchi@cpan.org>
82
83	* 0.0.4
84	found bug in ok(module_requires exclude)
85	add build_requires and requires exclusion in constructor
86
87
88	2009-11-24 Takuya Tsuchida <tsucchi@cpan.org>
89
90	* 0.0.3
91	add ChangeLog and README
92	describe about perl_version
93	bug fix (failed when test is empty)
94	parse perlversion using Perl::MinimumVersion
95
96	2009-11-23 Takuya Tsuchida <tsucchi@cpan.org>
97
98	* 0.0.2
99	fix insufficient index(set no_index to testdata)
100
101
102	2009-11-22 Takuya Tsuchida <tsucchi@cpan.org>
103
104	* 0.0.1
105	initial release
106

Lines 1-33 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/MANIFEST (-33 lines)
1	ChangeLog
2	inc/Module/Install.pm
3	inc/Module/Install/AuthorTests.pm
4	inc/Module/Install/Base.pm
5	inc/Module/Install/Can.pm
6	inc/Module/Install/Fetch.pm
7	inc/Module/Install/Makefile.pm
8	inc/Module/Install/Metadata.pm
9	inc/Module/Install/Win32.pm
10	inc/Module/Install/WriteAll.pm
11	lib/Test/Module/Used.pm
12	Makefile.PL
13	MANIFEST This list of files
14	META.yml
15	README
16	t/001_use_ok.t
17	t/002_default.t
18	t/003_option.t
19	t/004_used_ok.t
20	t/005_used_module.t
21	t/006_read_meta_yml.t
22	t/007_test_myself.t
23	t/008_test_is_empty.t
24	t/009_auto_get_exclude.t
25	t/010_test_myself2.t
26	testdata/lib/SampleModule.pm
27	testdata/lib2/My/Test.pm
28	testdata/META.yml
29	testdata/META.yml2
30	testdata/META.yml3
31	testdata/t/001_test.t
32	testdata/t2/001_use_ok.t
33	testdata/t2/lib/My/Test2.pm

Lines 1-34 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/META.yml (-34 lines)
1	---
2	abstract: 'Test required module is really used and vice versa bitween lib/t and META.yml'
3	author:
4	- 'Takuya Tsuchida tsucchi@cpan.org'
5	build_requires:
6	ExtUtils::MakeMaker: 6.42
7	Test::More: 0
8	configure_requires:
9	ExtUtils::MakeMaker: 6.42
10	distribution_type: module
11	generated_by: 'Module::Install version 0.91'
12	license: perl
13	meta-spec:
14	url: http://module-build.sourceforge.net/META-spec-v1.4.html
15	version: 1.4
16	name: Test-Module-Used
17	no_index:
18	directory:
19	- inc
20	- t
21	- testdata
22	- xt
23	requires:
24	List::MoreUtils: 0
25	Module::CoreList: 0
26	Module::Used: 0
27	PPI::Document: 0
28	YAML: 0
29	perl: 5.8.0
30	version: 0.77
31	resources:
32	license: http://dev.perl.org/licenses/
33	repository: http://github.com/tsucchi/Test-Module-Used
34	version: 0.1.8

Lines 1-18 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/Makefile.PL (-18 lines)
1	use inc::Module::Install;
2	name 'Test-Module-Used';
3	author 'Takuya Tsuchida tsucchi@cpan.org';
4	license 'perl';
5	all_from 'lib/Test/Module/Used.pm';
6	requires 'Module::Used';
7	requires 'YAML';
8	requires 'List::MoreUtils';
9	requires 'Module::CoreList';
10	requires 'PPI::Document';
11	requires 'version' => 0.77;
12	test_requires 'Test::More';
13
14	author_tests 'xt';
15
16	no_index directory => 'testdata';
17	repository 'http://github.com/tsucchi/Test-Module-Used';
18	WriteAll;

Lines 1-457 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/blib/lib/Test/Module/Used.pm (-457 lines)
1	package Test::Module::Used;
2	use base qw(Exporter);
3	use strict;
4	use warnings;
5	use File::Find;
6	use File::Spec::Functions qw(catfile);
7	use Module::Used qw(modules_used_in_document);
8	use Module::CoreList;
9	use YAML;
10	use Test::Builder;
11	use List::MoreUtils qw(any);
12	use PPI::Document;
13	use version;
14
15	use 5.008;
16	our $VERSION = '0.1.8';
17
18	=head1 NAME
19
20	Test::Module::Used - Test required module is really used and vice versa bitween lib/t and META.yml
21
22	=head1 SYNOPSIS
23
24	#!/usr/bin/perl -w
25	use strict;
26	use warnings;
27	use Test::Module::Used;
28	my $used = Test::Module::Used->new();
29	$used->ok;
30
31
32	=head1 DESCRIPTION
33
34	Test dependency between module and META.yml.
35
36	This module reads I<META.yml> and get I<build_requires> and I<requires>. It compares required module is really used and used module is really required.
37
38	=cut
39
40	=head1 Important changes
41
42	Some behavier changed since 0.1.3_01.
43
44	=over 4
45
46	=item * perl_version set in constructor is prior to use, and read version from META.yml(not read from use statement in *.pm)
47
48	=item * deprecated interfaces are deleted. (module_dir, test_module_dir, exclude_in_moduledir and push_exclude_in_moduledir)
49
50	=back
51
52	=cut
53
54	=head1 methods
55
56	=cut
57
58	=head2 new
59
60	create new instance
61
62	all parameters are passed by hash-style, and optional.
63
64	in ordinary use.
65
66	my $used = Test::Module::Used->new();
67	$used->ok();
68
69	all parameters are as follows.(specified values are default, except I<exclude_in_testdir>)
70
71	my $used = Test::Module::Used->new(
72	test_dir => ['t'], # directory(ies) which contains test scripts.
73	lib_dir => ['lib'], # directory(ies) which contains module libs.
74	test_lib_dir => ['t'], # directory(ies) which contains libs used ONLY in test (ex. MockObject for test)
75	meta_file => 'META.yml', # META.yml (contains module requirement information)
76	perl_version => '5.008', # expected perl version which is used for ignore core-modules in testing
77	exclude_in_testdir => [], # ignored module(s) for test even if it is used.
78	exclude_in_libdir => [], # ignored module(s) for your lib even if it is used.
79	exclude_in_build_requires => [], # ignored module(s) even if it is written in build_requires of META.yml.
80	exclude_in_requires => [], # ignored module(s) even if it is written in requires of META.yml.
81	);
82
83	if perl_version is not passed in constructor, this modules reads I<meta_file> and get perl version.
84
85	I<exclude_in_testdir> is automatically set by default. This module reads I<lib_dir> and parse "pacakge" statement, then found "package" statements and myself(Test::Module::Used) is set.
86	I<exclude_in_libdir> is also automatically set by default. This module reads I<lib_dir> and parse "package" statement, found "package" statement are set.(Test::Module::Used isnt included)
87
88	=cut
89
90	sub new {
91	my $class = shift;
92	my (%opt) = @_;
93	my $self = {
94	test_dir => $opt{test_dir} \|\| ['t'],
95	lib_dir => $opt{lib_dir} \|\| ['lib'],
96	test_lib_dir => $opt{test_lib_dir} \|\| ['t'],
97	meta_file => $opt{meta_file} \|\| 'META.yml',
98	perl_version => $opt{perl_version},
99	exclude_in_testdir => $opt{exclude_in_testdir},
100	exclude_in_libdir => $opt{exclude_in_libdir},
101	exclude_in_build_requires => $opt{exclude_in_build_requires} \|\| [],
102	exclude_in_requires => $opt{exclude_in_requires} \|\| [],
103	};
104	bless $self, $class;
105	$self->_get_packages();
106	return $self;
107	}
108
109
110	sub _test_dir {
111	return shift->{test_dir};
112	}
113
114	sub _lib_dir {
115	return shift->{lib_dir};
116	}
117
118	sub _test_lib_dir {
119	return shift->{test_lib_dir};
120	}
121
122	sub _meta_file {
123	return shift->{meta_file};
124	}
125
126	sub _perl_version {
127	return shift->{perl_version};
128	}
129
130	=head2 ok
131
132	check used module is ok.
133
134	my $used = Test::Module::Used->new(
135	exclude_in_testdir => ['Test::Module::Used', 'My::Module'],
136	);
137	$used->ok;
138
139
140	First, This module reads I<META.yml> and get I<build_requires> and I<requires>. Next, reads module directory (by default I<lib>) and test directory(by default I<t>), and compare required module is really used and used module is really required. If all these requirement information is OK, test will success.
141
142	=cut
143
144	sub ok {
145	my $self = shift;
146	my $test = Test::Builder->new();
147
148
149	my $num_tests = $self->_num_tests();
150	if ( $num_tests > 0 ) {
151	$test->plan(tests => $num_tests);
152	my $status_requires_ok = $self->_requires_ok($test,
153	[$self->_remove_core($self->_used_modules)],
154	[$self->_remove_core($self->_requires)],
155	"lib");
156	my $status_build_requires_ok = $self->_requires_ok($test,
157	[$self->_remove_core($self->_used_modules_in_test)],
158	[$self->_remove_core($self->_build_requires)],
159	"test");
160	return $status_requires_ok && $status_build_requires_ok;
161	}
162	else {
163	$test->plan(tests => 1);
164	$test->ok(1, "no tests run");
165	return 1;
166	}
167	}
168
169	=head2 push_exclude_in_libdir( @exclude_module_names )
170
171	add ignored module(s) for your module(lib) even if it is used after new()'ed.
172	this is usable if you want to use auto set feature for I<exclude_in_libdir> but manually specify exclude modules.
173
174	For example,
175
176	my $used = Test::Module::Used->new(); #automatically set exclude_in_libdir
177	$used->push_exclude_in_libdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
178	$used->ok(); #do test
179
180	=cut
181
182	sub push_exclude_in_libdir {
183	my $self = shift;
184	my @exclude_module_names = @_;
185	push @{$self->{exclude_in_libdir}},@exclude_module_names;
186	}
187
188
189
190	=head2 push_exclude_in_testdir( @exclude_module_names )
191
192	add ignored module(s) for test even if it is used after new()'ed.
193	this is usable if you want to use auto set feature for I<exclude_in_testdir> but manually specify exclude modules.
194
195	For example,
196
197	my $used = Test::Module::Used->new(); #automatically set exclude_in_testdir
198	$used->push_exclude_in_testdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
199	$used->ok(); #do test
200
201	=cut
202
203	sub push_exclude_in_testdir {
204	my $self = shift;
205	my @exclude_module_names = @_;
206	push @{$self->{exclude_in_testdir}},@exclude_module_names;
207	}
208
209	sub _version {
210	my $self = shift;
211	if ( !defined $self->{version} ) {
212	$self->{version} = $self->_perl_version \|\| $self->_version_from_meta \|\| "5.008000";
213	}
214	return $self->{version};
215	}
216
217	sub _num_tests {
218	my $self = shift;
219
220	return scalar($self->_remove_core($self->_used_modules,
221	$self->_requires,
222	$self->_used_modules_in_test,
223	$self->_build_requires));
224	}
225
226	sub _requires_ok {
227	my $self = shift;
228	my ($test, $used_aref, $requires_aref, $place) = @_;
229
230	my $status1 = $self->_check_required_but_not_used($test, $requires_aref, $used_aref, $place);
231	my $status2 = $self->_check_used_but_not_required($test, $requires_aref, $used_aref, $place);
232
233	return $status1 && $status2;
234	}
235
236
237	sub _check_required_but_not_used {
238	my $self = shift;
239	my ($test, $requires_aref, $used_aref, $place) = @_;
240	my @requires = @{$requires_aref};
241	my @used = @{$used_aref};
242
243	my $result = 1;
244	for my $require ( @requires ) {
245	my $status = any { $_ eq $require } @used;
246	$test->ok( $status, "check required module: $require" );
247	if ( !$status ) {
248	$test->diag("module $require is required but not used in $place");
249	$result = 0;
250	}
251	}
252	return $result;
253	}
254
255	sub _check_used_but_not_required {
256	my $self = shift;
257	my ($test, $requires_aref, $used_aref, $place) = @_;
258	my @requires = @{$requires_aref};
259	my @used = @{$used_aref};
260
261	my $result = 1;
262	for my $used ( @used ) {
263	my $status = any { $_ eq $used } @requires;
264	$test->ok( $status, "check used module: $used" );
265	if ( !$status ) {
266	$test->diag("module $used is used in $place but not required");
267	$result = 0;
268	}
269	}
270	return $result;
271	}
272
273	sub _pm_files {
274	my $self = shift;
275	if ( !defined $self->{pm_files} ) {
276	my @files = $self->_find_files_by_ext($self->_lib_dir, qr/\.pm$/);
277	$self->{pm_files} = \@files;
278	}
279	return @{$self->{pm_files}};
280	}
281
282	sub _pm_files_in_test {
283	my $self = shift;
284	if ( !defined $self->{pm_files_in_test} ) {
285	my @files = $self->_find_files_by_ext($self->_test_lib_dir, qr/\.pm$/);
286	$self->{pm_files_in_test} = \@files;
287	}
288	return @{$self->{pm_files_in_test}};
289	}
290
291	sub _test_files {
292	my $self = shift;
293	return $self->_find_files_by_ext($self->_test_dir, qr/\.t$/);
294	}
295
296	sub _find_files_by_ext {
297	my $self = shift;
298	my ($start_dirs_aref, $ext_qr) = @_;
299	my @result;
300	find( sub {
301	push @result, catfile($File::Find::dir, $_) if ( $_ =~ $ext_qr );
302	},
303	@{$start_dirs_aref});
304	return @result;
305	}
306
307	sub _used_modules {
308	my $self = shift;
309	if ( !defined $self->{used_modules} ) {
310	my @used = map { modules_used_in_document($self->_ppi_for($_)) } $self->_pm_files;
311	my @result = _array_difference(\@used, $self->{exclude_in_libdir});
312	$self->{used_modules} = \@result;
313	}
314	return @{$self->{used_modules}};
315	}
316
317	sub _used_modules_in_test {
318	my $self = shift;
319	if ( !defined $self->{used_modules_in_test} ) {
320	my @used = map { modules_used_in_document($self->_ppi_for($_)) } $self->_test_files;
321	my @result = _array_difference(\@used, $self->{exclude_in_testdir});
322	$self->{used_modules_in_test} = \@result;
323	}
324	return @{$self->{used_modules_in_test}};
325	}
326
327	sub _array_difference {
328	my ( $aref1, $aref2 ) = @_;
329	my @a1 = @{$aref1};
330	my @a2 = @{$aref2};
331
332	for my $a2 ( @a2 ) {
333	@a1 = grep { $_ ne $a2 } @a1;
334	}
335	return @a1;
336	}
337
338	sub _version_from_meta {
339	my $self = shift;
340	return $self->{version_from_meta};
341	}
342
343	sub _remove_core {
344	my $self = shift;
345	my( @module_names ) = @_;
346	my @result = grep { !$self->_is_core_module($_) } @module_names;
347	return @result;
348	}
349
350	sub _is_core_module {
351	my $self = shift;
352	my($module_name) = @_;
353	my $first_release = Module::CoreList->first_release($module_name);
354	return defined $first_release && $first_release <= $self->_version;
355	}
356
357	sub _read_meta_yml {
358	my $self = shift;
359	my $yaml = YAML::LoadFile( $self->_meta_file );
360	$self->{build_requires} = $yaml->{build_requires};
361	$self->{version_from_meta} = version->parse($yaml->{requires}->{perl})->numify() if defined $yaml->{requires}->{perl};
362	delete $yaml->{requires}->{perl};
363	$self->{requires} = $yaml->{requires};
364	}
365
366	sub _build_requires {
367	my $self = shift;
368
369	$self->_read_meta_yml if !defined $self->{build_requires};
370	my @result = sort keys %{$self->{build_requires}};
371	return _array_difference(\@result, $self->{exclude_in_build_requires});
372	}
373
374	sub _requires {
375	my $self = shift;
376
377	$self->_read_meta_yml if !defined $self->{requires};
378	my @result = sort keys %{$self->{requires}};
379	return _array_difference(\@result, $self->{exclude_in_requires});
380	}
381
382	# find package statements in lib
383	sub _get_packages {
384	my $self = shift;
385	my @packages = $self->_packages_in( $self->_pm_files );
386	my @exclude_in_testdir = (__PACKAGE__, @packages, $self->_packages_in($self->_pm_files_in_test));
387	$self->push_exclude_in_testdir(@exclude_in_testdir) if ( !defined $self->{exclude_in_testdir} );
388	$self->push_exclude_in_libdir(@packages) if ( !defined $self->{exclude_in_libdir} );
389	}
390
391	sub _packages_in {
392	my $self = shift;
393	my ( @filenames ) = @_;
394
395	my @result;
396	for my $filename ( @filenames ) {
397	my @packages = $self->_packages_in_file($filename);
398	push @result, @packages;
399	}
400	return @result;
401	}
402
403	sub _packages_in_file {
404	my $self = shift;
405	my ( $filename ) = @_;
406
407	my $doc = $self->_ppi_for($filename);
408	my $packages = $doc->find('PPI::Statement::Package');
409	return if ( $packages eq '' );
410
411	my @result;
412	for my $item ( @{$packages} ) {
413	for my $token ( @{$item->{children}} ) {
414	next if ( !$token->isa('PPI::Token::Word') );
415	next if ( $token->content eq 'package' );
416	push @result, $token->content;
417	}
418	}
419	return @result;
420	}
421
422	# PPI::Document object for $filename
423	sub _ppi_for {
424	my $self = shift;
425	my ($filename) = @_;
426	if ( !defined $self->{ppi_for}->{$filename} ) {
427	my $doc = PPI::Document->new($filename);
428	$self->{ppi_for}->{$filename} = $doc;
429	}
430	return $self->{ppi_for}->{$filename};
431	}
432
433
434	1;
435	__END__
436
437	=head1 AUTHOR
438
439	Takuya Tsuchida E<lt>tsucchi@cpan.orgE<gt>
440
441	=head1 SEE ALSO
442
443	L<Test::Dependencies> has almost same feature.
444
445	=head1 REPOSITORY
446
447	L<http://github.com/tsucchi/Test-Module-Used>
448
449
450	=head1 COPYRIGHT AND LICENSE
451
452	Copyright (c) 2008-2010 Takuya Tsuchida
453
454	This library is free software; you can redistribute it and/or modify
455	it under the same terms as Perl itself.
456
457	=cut

Lines 1-243 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/blib/man3/Test::Module::Used.3 (-243 lines)
1	.\" Automatically generated by Pod::Man 2.22 (Pod::Simple 3.07)
2	.\"
3	.\" Standard preamble:
4	.\" ========================================================================
5	.de Sp \" Vertical space (when we can't use .PP)
6	.if t .sp .5v
7	.if n .sp
8	..
9	.de Vb \" Begin verbatim text
10	.ft CW
11	.nf
12	.ne \\$1
13	..
14	.de Ve \" End verbatim text
15	.ft R
16	.fi
17	..
18	.\" Set up some character translations and predefined strings. \*(-- will
19	.\" give an unbreakable dash, \(PI will give pi, \(L" will give a left
20	.\" double quote, and \(R" will give a right double quote. \(C+ will
21	.\" give a nicer C++. Capital omega is used to do unbreakable dashes and
22	.\" therefore won't be available. \(C` and \(C' expand to `' in nroff,
23	.\" nothing in troff, for use with C<>.
24	.tr \(*W-
25	.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
26	.ie n \{\
27	. ds -- \(*W-
28	. ds PI pi
29	. if (\n(.H=4u)&(1m=24u) .ds -- \(W\h'-12u'\(W\h'-12u'-\" diablo 10 pitch
30	. if (\n(.H=4u)&(1m=20u) .ds -- \(W\h'-12u'\(W\h'-8u'-\" diablo 12 pitch
31	. ds L" ""
32	. ds R" ""
33	. ds C` ""
34	. ds C' ""
35	'br\}
36	.el\{\
37	. ds -- \\|\(em\\|
38	. ds PI \(*p
39	. ds L" ``
40	. ds R" ''
41	'br\}
42	.\"
43	.\" Escape single quotes in literal strings from groff's Unicode transform.
44	.ie \n(.g .ds Aq \(aq
45	.el .ds Aq '
46	.\"
47	.\" If the F register is turned on, we'll generate index entries on stderr for
48	.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
49	.\" entries marked with X<> in POD. Of course, you'll have to process the
50	.\" output yourself in some meaningful fashion.
51	.ie \nF \{\
52	. de IX
53	. tm Index:\\$1\t\\n%\t"\\$2"
54	..
55	. nr % 0
56	. rr F
57	.\}
58	.el \{\
59	. de IX
60	..
61	.\}
62	.\"
63	.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
64	.\" Fear. Run. Save yourself. No user-serviceable parts.
65	. \" fudge factors for nroff and troff
66	.if n \{\
67	. ds #H 0
68	. ds #V .8m
69	. ds #F .3m
70	. ds #[ \f1
71	. ds #] \fP
72	.\}
73	.if t \{\
74	. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
75	. ds #V .6m
76	. ds #F 0
77	. ds #[ \&
78	. ds #] \&
79	.\}
80	. \" simple accents for nroff and troff
81	.if n \{\
82	. ds ' \&
83	. ds ` \&
84	. ds ^ \&
85	. ds , \&
86	. ds ~ ~
87	. ds /
88	.\}
89	.if t \{\
90	. ds ' \\k:\h'-(\\n(.wu8/10-\(#H)'\'\h"\|\\n:u"
91	. ds ` \\k:\h'-(\\n(.wu8/10-\(#H)'\`\h'\|\\n:u'
92	. ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'^\h'\|\\n:u'
93	. ds , \\k:\h'-(\\n(.wu*8/10)',\h'\|\\n:u'
94	. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'\|\\n:u'
95	. ds / \\k:\h'-(\\n(.wu8/10-\(#H)'\z\(sl\h'\|\\n:u'
96	.\}
97	. \" troff and (daisy-wheel) nroff accents
98	.ds : \\k:\h'-(\\n(.wu8/10-\(#H+.1m+\(#F)'\v'-\(#V'\z.\h'.2m+\(#F'.\h'\|\\n:u'\v'\(#V'
99	.ds 8 \h'\(#H'\(b\h'-\*(#H'
100	.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\(#H)/2u'\v'-.3n'\(#[\z\(de\v'.3n'\h'\|\\n:u'\*(#]
101	.ds d- \h'\(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\(#H'
102	.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'\|\\n:u'
103	.ds th \(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u2/3)'\s-1o\s+1\*(#]
104	.ds Th \(#[\s+2I\s-2\h'-\w'I'u3/5'\v'-.3m'o\v'.3m'\*(#]
105	.ds ae a\h'-(\w'a'u*4/10)'e
106	.ds Ae A\h'-(\w'A'u*4/10)'E
107	. \" corrections for vroff
108	.if v .ds ~ \\k:\h'-(\\n(.wu9/10-\(#H)'\s-2\u~\d\s+2\h'\|\\n:u'
109	.if v .ds ^ \\k:\h'-(\\n(.wu10/11-\(#H)'\v'-.4m'^\v'.4m'\h'\|\\n:u'
110	. \" for low resolution devices (crt and lpr)
111	.if \n(.H>23 .if \n(.V>19 \
112	\{\
113	. ds : e
114	. ds 8 ss
115	. ds o a
116	. ds d- d\h'-1'\(ga
117	. ds D- D\h'-1'\(hy
118	. ds th \o'bp'
119	. ds Th \o'LP'
120	. ds ae ae
121	. ds Ae AE
122	.\}
123	.rm #[ #] #H #V #F C
124	.\" ========================================================================
125	.\"
126	.IX Title "Test::Module::Used 3"
127	.TH Test::Module::Used 3 "2010-01-12" "perl v5.10.1" "User Contributed Perl Documentation"
128	.\" For nroff, turn off justification. Always turn off hyphenation; it makes
129	.\" way too many mistakes in technical documents.
130	.if n .ad l
131	.nh
132	.SH "NAME"
133	Test::Module::Used \- Test required module is really used and vice versa bitween lib/t and META.yml
134	.SH "SYNOPSIS"
135	.IX Header "SYNOPSIS"
136	.Vb 6
137	\& #!/usr/bin/perl \-w
138	\& use strict;
139	\& use warnings;
140	\& use Test::Module::Used;
141	\& my $used = Test::Module::Used\->new();
142	\& $used\->ok;
143	.Ve
144	.SH "DESCRIPTION"
145	.IX Header "DESCRIPTION"
146	Test dependency between module and \s-1META\s0.yml.
147	.PP
148	This module reads \fI\s-1META\s0.yml\fR and get \fIbuild_requires\fR and \fIrequires\fR. It compares required module is really used and used module is really required.
149	.SH "Important changes"
150	.IX Header "Important changes"
151	Some behavier changed since 0.1.3_01.
152	.IP "\(bu" 4
153	perl_version set in constructor is prior to use, and read version from \s-1META\s0.yml(not read from use statement in *.pm)
154	.IP "\(bu" 4
155	deprecated interfaces are deleted. (module_dir, test_module_dir, exclude_in_moduledir and push_exclude_in_moduledir)
156	.SH "methods"
157	.IX Header "methods"
158	.SS "new"
159	.IX Subsection "new"
160	create new instance
161	.PP
162	all parameters are passed by hash-style, and optional.
163	.PP
164	in ordinary use.
165	.PP
166	.Vb 2
167	\& my $used = Test::Module::Used\->new();
168	\& $used\->ok();
169	.Ve
170	.PP
171	all parameters are as follows.(specified values are default, except \fIexclude_in_testdir\fR)
172	.PP
173	.Vb 11
174	\& my $used = Test::Module::Used\->new(
175	\& test_dir => [\(Aqt\(Aq], # directory(ies) which contains test scripts.
176	\& lib_dir => [\(Aqlib\(Aq], # directory(ies) which contains module libs.
177	\& test_lib_dir => [\(Aqt\(Aq], # directory(ies) which contains libs used ONLY in test (ex. MockObject for test)
178	\& meta_file => \(AqMETA.yml\(Aq, # META.yml (contains module requirement information)
179	\& perl_version => \(Aq5.008\(Aq, # expected perl version which is used for ignore core\-modules in testing
180	\& exclude_in_testdir => [], # ignored module(s) for test even if it is used.
181	\& exclude_in_libdir => [], # ignored module(s) for your lib even if it is used.
182	\& exclude_in_build_requires => [], # ignored module(s) even if it is written in build_requires of META.yml.
183	\& exclude_in_requires => [], # ignored module(s) even if it is written in requires of META.yml.
184	\& );
185	.Ve
186	.PP
187	if perl_version is not passed in constructor, this modules reads \fImeta_file\fR and get perl version.
188	.PP
189	\&\fIexclude_in_testdir\fR is automatically set by default. This module reads \fIlib_dir\fR and parse \(L"pacakge\(R" statement, then found \(L"package\(R" statements and myself(Test::Module::Used) is set.
190	\&\fIexclude_in_libdir\fR is also automatically set by default. This module reads \fIlib_dir\fR and parse \(L"package\(R" statement, found \(L"package\(R" statement are set.(Test::Module::Used isnt included)
191	.SS "ok"
192	.IX Subsection "ok"
193	check used module is ok.
194	.PP
195	.Vb 4
196	\& my $used = Test::Module::Used\->new(
197	\& exclude_in_testdir => [\(AqTest::Module::Used\(Aq, \(AqMy::Module\(Aq],
198	\& );
199	\& $used\->ok;
200	.Ve
201	.PP
202	First, This module reads \fI\s-1META\s0.yml\fR and get \fIbuild_requires\fR and \fIrequires\fR. Next, reads module directory (by default \fIlib\fR) and test directory(by default \fIt\fR), and compare required module is really used and used module is really required. If all these requirement information is \s-1OK\s0, test will success.
203	.ie n .SS "push_exclude_in_libdir( @exclude_module_names )"
204	.el .SS "push_exclude_in_libdir( \f(CW@exclude_module_names\fP )"
205	.IX Subsection "push_exclude_in_libdir( @exclude_module_names )"
206	add ignored module(s) for your module(lib) even if it is used after \fInew()\fR'ed.
207	this is usable if you want to use auto set feature for \fIexclude_in_libdir\fR but manually specify exclude modules.
208	.PP
209	For example,
210	.PP
211	.Vb 3
212	\& my $used = Test::Module::Used\->new(); #automatically set exclude_in_libdir
213	\& $used\->push_exclude_in_libdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
214	\& $used\->ok(); #do test
215	.Ve
216	.ie n .SS "push_exclude_in_testdir( @exclude_module_names )"
217	.el .SS "push_exclude_in_testdir( \f(CW@exclude_module_names\fP )"
218	.IX Subsection "push_exclude_in_testdir( @exclude_module_names )"
219	add ignored module(s) for test even if it is used after \fInew()\fR'ed.
220	this is usable if you want to use auto set feature for \fIexclude_in_testdir\fR but manually specify exclude modules.
221	.PP
222	For example,
223	.PP
224	.Vb 3
225	\& my $used = Test::Module::Used\->new(); #automatically set exclude_in_testdir
226	\& $used\->push_exclude_in_testdir( qw(Some::Module::Which::You::Want::To::Exclude) );#module(s) which you want to exclude
227	\& $used\->ok(); #do test
228	.Ve
229	.SH "AUTHOR"
230	.IX Header "AUTHOR"
231	Takuya Tsuchida <tsucchi@cpan.org>
232	.SH "SEE ALSO"
233	.IX Header "SEE ALSO"
234	Test::Dependencies has almost same feature.
235	.SH "REPOSITORY"
236	.IX Header "REPOSITORY"
237	<http://github.com/tsucchi/Test\-Module\-Used>
238	.SH "COPYRIGHT AND LICENSE"
239	.IX Header "COPYRIGHT AND LICENSE"
240	Copyright (c) 2008\-2010 Takuya Tsuchida
241	.PP
242	This library is free software; you can redistribute it and/or modify
243	it under the same terms as Perl itself.

Lines 1-59 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install/AuthorTests.pm (-59 lines)
1	#line 1
2	package Module::Install::AuthorTests;
3
4	use 5.005;
5	use strict;
6	use Module::Install::Base;
7	use Carp ();
8
9	#line 16
10
11	use vars qw{$VERSION $ISCORE @ISA};
12	BEGIN {
13	$VERSION = '0.002';
14	$ISCORE = 1;
15	@ISA = qw{Module::Install::Base};
16	}
17
18	#line 42
19
20	sub author_tests {
21	my ($self, @dirs) = @_;
22	_add_author_tests($self, \@dirs, 0);
23	}
24
25	#line 56
26
27	sub recursive_author_tests {
28	my ($self, @dirs) = @_;
29	_add_author_tests($self, \@dirs, 1);
30	}
31
32	sub _wanted {
33	my $href = shift;
34	sub { /\.t$/ and -f $_ and $href->{$File::Find::dir} = 1 }
35	}
36
37	sub _add_author_tests {
38	my ($self, $dirs, $recurse) = @_;
39	return unless $Module::Install::AUTHOR;
40
41	my @tests = $self->tests ? (split / /, $self->tests) : 't/*.t';
42
43	# XXX: pick a default, later -- rjbs, 2008-02-24
44	my @dirs = @$dirs ? @$dirs : Carp::confess "no dirs given to author_tests";
45	@dirs = grep { -d } @dirs;
46
47	if ($recurse) {
48	require File::Find;
49	my %test_dir;
50	File::Find::find(_wanted(\%test_dir), @dirs);
51	$self->tests( join ' ', @tests, map { "$_/*.t" } sort keys %test_dir );
52	} else {
53	$self->tests( join ' ', @tests, map { "$_/*.t" } sort @dirs );
54	}
55	}
56
57	#line 107
58
59	1;

Lines 1-78 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install/Base.pm (-78 lines)
1	#line 1
2	package Module::Install::Base;
3
4	use strict 'vars';
5	use vars qw{$VERSION};
6	BEGIN {
7	$VERSION = '0.91';
8	}
9
10	# Suspend handler for "redefined" warnings
11	BEGIN {
12	my $w = $SIG{__WARN__};
13	$SIG{__WARN__} = sub { $w };
14	}
15
16	#line 42
17
18	sub new {
19	my $class = shift;
20	unless ( defined &{"${class}::call"} ) {
21	*{"${class}::call"} = sub { shift->_top->call(@_) };
22	}
23	unless ( defined &{"${class}::load"} ) {
24	*{"${class}::load"} = sub { shift->_top->load(@_) };
25	}
26	bless { @_ }, $class;
27	}
28
29	#line 61
30
31	sub AUTOLOAD {
32	local $@;
33	my $func = eval { shift->_top->autoload } or return;
34	goto &$func;
35	}
36
37	#line 75
38
39	sub _top {
40	$_[0]->{_top};
41	}
42
43	#line 90
44
45	sub admin {
46	$_[0]->_top->{admin}
47	or
48	Module::Install::Base::FakeAdmin->new;
49	}
50
51	#line 106
52
53	sub is_admin {
54	$_[0]->admin->VERSION;
55	}
56
57	sub DESTROY {}
58
59	package Module::Install::Base::FakeAdmin;
60
61	my $fake;
62
63	sub new {
64	$fake \|\|= bless(\@_, $_[0]);
65	}
66
67	sub AUTOLOAD {}
68
69	sub DESTROY {}
70
71	# Restore warning handler
72	BEGIN {
73	$SIG{__WARN__} = $SIG{__WARN__}->();
74	}
75
76	1;
77
78	#line 154

Lines 1-81 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install/Can.pm (-81 lines)
1	#line 1
2	package Module::Install::Can;
3
4	use strict;
5	use Config ();
6	use File::Spec ();
7	use ExtUtils::MakeMaker ();
8	use Module::Install::Base ();
9
10	use vars qw{$VERSION @ISA $ISCORE};
11	BEGIN {
12	$VERSION = '0.91';
13	@ISA = 'Module::Install::Base';
14	$ISCORE = 1;
15	}
16
17	# check if we can load some module
18	### Upgrade this to not have to load the module if possible
19	sub can_use {
20	my ($self, $mod, $ver) = @_;
21	$mod =~ s{::\|\\}{/}g;
22	$mod .= '.pm' unless $mod =~ /\.pm$/i;
23
24	my $pkg = $mod;
25	$pkg =~ s{/}{::}g;
26	$pkg =~ s{\.pm$}{}i;
27
28	local $@;
29	eval { require $mod; $pkg->VERSION($ver \|\| 0); 1 };
30	}
31
32	# check if we can run some command
33	sub can_run {
34	my ($self, $cmd) = @_;
35
36	my $_cmd = $cmd;
37	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
38
39	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
40	next if $dir eq '';
41	my $abs = File::Spec->catfile($dir, $_[1]);
42	return $abs if (-x $abs or $abs = MM->maybe_command($abs));
43	}
44
45	return;
46	}
47
48	# can we locate a (the) C compiler
49	sub can_cc {
50	my $self = shift;
51	my @chunks = split(/ /, $Config::Config{cc}) or return;
52
53	# $Config{cc} may contain args; try to find out the program part
54	while (@chunks) {
55	return $self->can_run("@chunks") \|\| (pop(@chunks), next);
56	}
57
58	return;
59	}
60
61	# Fix Cygwin bug on maybe_command();
62	if ( $^O eq 'cygwin' ) {
63	require ExtUtils::MM_Cygwin;
64	require ExtUtils::MM_Win32;
65	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
66	*ExtUtils::MM_Cygwin::maybe_command = sub {
67	my ($self, $file) = @_;
68	if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
69	ExtUtils::MM_Win32->maybe_command($file);
70	} else {
71	ExtUtils::MM_Unix->maybe_command($file);
72	}
73	}
74	}
75	}
76
77	1;
78
79	__END__
80
81	#line 156

Lines 1-93 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install/Fetch.pm (-93 lines)
1	#line 1
2	package Module::Install::Fetch;
3
4	use strict;
5	use Module::Install::Base ();
6
7	use vars qw{$VERSION @ISA $ISCORE};
8	BEGIN {
9	$VERSION = '0.91';
10	@ISA = 'Module::Install::Base';
11	$ISCORE = 1;
12	}
13
14	sub get_file {
15	my ($self, %args) = @_;
16	my ($scheme, $host, $path, $file) =
17	$args{url} =~ m\|^(\w+)://([^/]+)(.+)/(.+)\| or return;
18
19	if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
20	$args{url} = $args{ftp_url}
21	or (warn("LWP support unavailable!\n"), return);
22	($scheme, $host, $path, $file) =
23	$args{url} =~ m\|^(\w+)://([^/]+)(.+)/(.+)\| or return;
24	}
25
26	$\|++;
27	print "Fetching '$file' from $host... ";
28
29	unless (eval { require Socket; Socket::inet_aton($host) }) {
30	warn "'$host' resolve failed!\n";
31	return;
32	}
33
34	return unless $scheme eq 'ftp' or $scheme eq 'http';
35
36	require Cwd;
37	my $dir = Cwd::getcwd();
38	chdir $args{local_dir} or return if exists $args{local_dir};
39
40	if (eval { require LWP::Simple; 1 }) {
41	LWP::Simple::mirror($args{url}, $file);
42	}
43	elsif (eval { require Net::FTP; 1 }) { eval {
44	# use Net::FTP to get past firewall
45	my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
46	$ftp->login("anonymous", 'anonymous@example.com');
47	$ftp->cwd($path);
48	$ftp->binary;
49	$ftp->get($file) or (warn("$!\n"), return);
50	$ftp->quit;
51	} }
52	elsif (my $ftp = $self->can_run('ftp')) { eval {
53	# no Net::FTP, fallback to ftp.exe
54	require FileHandle;
55	my $fh = FileHandle->new;
56
57	local $SIG{CHLD} = 'IGNORE';
58	unless ($fh->open("\|$ftp -n")) {
59	warn "Couldn't open ftp: $!\n";
60	chdir $dir; return;
61	}
62
63	my @dialog = split(/\n/, <<"END_FTP");
64	open $host
65	user anonymous anonymous\@example.com
66	cd $path
67	binary
68	get $file $file
69	quit
70	END_FTP
71	foreach (@dialog) { $fh->print("$_\n") }
72	$fh->close;
73	} }
74	else {
75	warn "No working 'ftp' program available!\n";
76	chdir $dir; return;
77	}
78
79	unless (-f $file) {
80	warn "Fetching failed: $@\n";
81	chdir $dir; return;
82	}
83
84	return if exists $args{size} and -s $file != $args{size};
85	system($args{run}) if exists $args{run};
86	unlink($file) if $args{remove};
87
88	print(((!exists $args{check_for} or -e $args{check_for})
89	? "done!" : "failed! ($!)"), "\n");
90	chdir $dir; return !$?;
91	}
92
93	1;

Lines 1-268 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install/Makefile.pm (-268 lines)
1	#line 1
2	package Module::Install::Makefile;
3
4	use strict 'vars';
5	use ExtUtils::MakeMaker ();
6	use Module::Install::Base ();
7
8	use vars qw{$VERSION @ISA $ISCORE};
9	BEGIN {
10	$VERSION = '0.91';
11	@ISA = 'Module::Install::Base';
12	$ISCORE = 1;
13	}
14
15	sub Makefile { $_[0] }
16
17	my %seen = ();
18
19	sub prompt {
20	shift;
21
22	# Infinite loop protection
23	my @c = caller();
24	if ( ++$seen{"$c[1]\|$c[2]\|$_[0]"} > 3 ) {
25	die "Caught an potential prompt infinite loop ($c[1]\|$c[2]\|$_[0])";
26	}
27
28	# In automated testing, always use defaults
29	if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
30	local $ENV{PERL_MM_USE_DEFAULT} = 1;
31	goto &ExtUtils::MakeMaker::prompt;
32	} else {
33	goto &ExtUtils::MakeMaker::prompt;
34	}
35	}
36
37	sub makemaker_args {
38	my $self = shift;
39	my $args = ( $self->{makemaker_args} \|\|= {} );
40	%$args = ( %$args, @_ );
41	return $args;
42	}
43
44	# For mm args that take multiple space-seperated args,
45	# append an argument to the current list.
46	sub makemaker_append {
47	my $self = sShift;
48	my $name = shift;
49	my $args = $self->makemaker_args;
50	$args->{name} = defined $args->{$name}
51	? join( ' ', $args->{name}, @_ )
52	: join( ' ', @_ );
53	}
54
55	sub build_subdirs {
56	my $self = shift;
57	my $subdirs = $self->makemaker_args->{DIR} \|\|= [];
58	for my $subdir (@_) {
59	push @$subdirs, $subdir;
60	}
61	}
62
63	sub clean_files {
64	my $self = shift;
65	my $clean = $self->makemaker_args->{clean} \|\|= {};
66	%$clean = (
67	%$clean,
68	FILES => join ' ', grep { length $_ } ($clean->{FILES} \|\| (), @_),
69	);
70	}
71
72	sub realclean_files {
73	my $self = shift;
74	my $realclean = $self->makemaker_args->{realclean} \|\|= {};
75	%$realclean = (
76	%$realclean,
77	FILES => join ' ', grep { length $_ } ($realclean->{FILES} \|\| (), @_),
78	);
79	}
80
81	sub libs {
82	my $self = shift;
83	my $libs = ref $_[0] ? shift : [ shift ];
84	$self->makemaker_args( LIBS => $libs );
85	}
86
87	sub inc {
88	my $self = shift;
89	$self->makemaker_args( INC => shift );
90	}
91
92	my %test_dir = ();
93
94	sub _wanted_t {
95	/\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
96	}
97
98	sub tests_recursive {
99	my $self = shift;
100	if ( $self->tests ) {
101	die "tests_recursive will not work if tests are already defined";
102	}
103	my $dir = shift \|\| 't';
104	unless ( -d $dir ) {
105	die "tests_recursive dir '$dir' does not exist";
106	}
107	%test_dir = ();
108	require File::Find;
109	File::Find::find( \&_wanted_t, $dir );
110	$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
111	}
112
113	sub write {
114	my $self = shift;
115	die "&Makefile->write() takes no arguments\n" if @_;
116
117	# Check the current Perl version
118	my $perl_version = $self->perl_version;
119	if ( $perl_version ) {
120	eval "use $perl_version; 1"
121	or die "ERROR: perl: Version $] is installed, "
122	. "but we need version >= $perl_version";
123	}
124
125	# Make sure we have a new enough MakeMaker
126	require ExtUtils::MakeMaker;
127
128	if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
129	# MakeMaker can complain about module versions that include
130	# an underscore, even though its own version may contain one!
131	# Hence the funny regexp to get rid of it. See RT #35800
132	# for details.
133	$self->build_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
134	$self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
135	} else {
136	# Allow legacy-compatibility with 5.005 by depending on the
137	# most recent EU:MM that supported 5.005.
138	$self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );
139	$self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );
140	}
141
142	# Generate the MakeMaker params
143	my $args = $self->makemaker_args;
144	$args->{DISTNAME} = $self->name;
145	$args->{NAME} = $self->module_name \|\| $self->name;
146	$args->{VERSION} = $self->version;
147	$args->{NAME} =~ s/-/::/g;
148	if ( $self->tests ) {
149	$args->{test} = { TESTS => $self->tests };
150	}
151	if ( $] >= 5.005 ) {
152	$args->{ABSTRACT} = $self->abstract;
153	$args->{AUTHOR} = $self->author;
154	}
155	if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
156	$args->{NO_META} = 1;
157	}
158	if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
159	$args->{SIGN} = 1;
160	}
161	unless ( $self->is_admin ) {
162	delete $args->{SIGN};
163	}
164
165	# Merge both kinds of requires into prereq_pm
166	my $prereq = ($args->{PREREQ_PM} \|\|= {});
167	%$prereq = ( %$prereq,
168	map { @$_ }
169	map { @$_ }
170	grep $_,
171	($self->configure_requires, $self->build_requires, $self->requires)
172	);
173
174	# Remove any reference to perl, PREREQ_PM doesn't support it
175	delete $args->{PREREQ_PM}->{perl};
176
177	# merge both kinds of requires into prereq_pm
178	my $subdirs = ($args->{DIR} \|\|= []);
179	if ($self->bundles) {
180	foreach my $bundle (@{ $self->bundles }) {
181	my ($file, $dir) = @$bundle;
182	push @$subdirs, $dir if -d $dir;
183	delete $prereq->{$file};
184	}
185	}
186
187	if ( my $perl_version = $self->perl_version ) {
188	eval "use $perl_version; 1"
189	or die "ERROR: perl: Version $] is installed, "
190	. "but we need version >= $perl_version";
191	}
192
193	$args->{INSTALLDIRS} = $self->installdirs;
194
195	my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
196
197	my $user_preop = delete $args{dist}->{PREOP};
198	if (my $preop = $self->admin->preop($user_preop)) {
199	foreach my $key ( keys %$preop ) {
200	$args{dist}->{$key} = $preop->{$key};
201	}
202	}
203
204	my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
205	$self->fix_up_makefile($mm->{FIRST_MAKEFILE} \|\| 'Makefile');
206	}
207
208	sub fix_up_makefile {
209	my $self = shift;
210	my $makefile_name = shift;
211	my $top_class = ref($self->_top) \|\| '';
212	my $top_version = $self->_top->VERSION \|\| '';
213
214	my $preamble = $self->preamble
215	? "# Preamble by $top_class $top_version\n"
216	. $self->preamble
217	: '';
218	my $postamble = "# Postamble by $top_class $top_version\n"
219	. ($self->postamble \|\| '');
220
221	local *MAKEFILE;
222	open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
223	my $makefile = do { local $/; <MAKEFILE> };
224	close MAKEFILE or die $!;
225
226	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
227	$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
228	$makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
229	$makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
230	$makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
231
232	# Module::Install will never be used to build the Core Perl
233	# Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
234	# PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
235	$makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
236	#$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
237
238	# Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
239	$makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g;
240
241	# XXX - This is currently unused; not sure if it breaks other MM-users
242	# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
243
244	open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
245	print MAKEFILE "$preamble$makefile$postamble" or die $!;
246	close MAKEFILE or die $!;
247
248	1;
249	}
250
251	sub preamble {
252	my ($self, $text) = @_;
253	$self->{preamble} = $text . $self->{preamble} if defined $text;
254	$self->{preamble};
255	}
256
257	sub postamble {
258	my ($self, $text) = @_;
259	$self->{postamble} \|\|= $self->admin->postamble;
260	$self->{postamble} .= $text if defined $text;
261	$self->{postamble}
262	}
263
264	1;
265
266	__END__
267
268	#line 394

Lines 1-624 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install/Metadata.pm (-624 lines)
1	#line 1
2	package Module::Install::Metadata;
3
4	use strict 'vars';
5	use Module::Install::Base ();
6
7	use vars qw{$VERSION @ISA $ISCORE};
8	BEGIN {
9	$VERSION = '0.91';
10	@ISA = 'Module::Install::Base';
11	$ISCORE = 1;
12	}
13
14	my @boolean_keys = qw{
15	sign
16	};
17
18	my @scalar_keys = qw{
19	name
20	module_name
21	abstract
22	author
23	version
24	distribution_type
25	tests
26	installdirs
27	};
28
29	my @tuple_keys = qw{
30	configure_requires
31	build_requires
32	requires
33	recommends
34	bundles
35	resources
36	};
37
38	my @resource_keys = qw{
39	homepage
40	bugtracker
41	repository
42	};
43
44	my @array_keys = qw{
45	keywords
46	};
47
48	sub Meta { shift }
49	sub Meta_BooleanKeys { @boolean_keys }
50	sub Meta_ScalarKeys { @scalar_keys }
51	sub Meta_TupleKeys { @tuple_keys }
52	sub Meta_ResourceKeys { @resource_keys }
53	sub Meta_ArrayKeys { @array_keys }
54
55	foreach my $key ( @boolean_keys ) {
56	*$key = sub {
57	my $self = shift;
58	if ( defined wantarray and not @_ ) {
59	return $self->{values}->{$key};
60	}
61	$self->{values}->{$key} = ( @_ ? $_[0] : 1 );
62	return $self;
63	};
64	}
65
66	foreach my $key ( @scalar_keys ) {
67	*$key = sub {
68	my $self = shift;
69	return $self->{values}->{$key} if defined wantarray and !@_;
70	$self->{values}->{$key} = shift;
71	return $self;
72	};
73	}
74
75	foreach my $key ( @array_keys ) {
76	*$key = sub {
77	my $self = shift;
78	return $self->{values}->{$key} if defined wantarray and !@_;
79	$self->{values}->{$key} \|\|= [];
80	push @{$self->{values}->{$key}}, @_;
81	return $self;
82	};
83	}
84
85	foreach my $key ( @resource_keys ) {
86	*$key = sub {
87	my $self = shift;
88	unless ( @_ ) {
89	return () unless $self->{values}->{resources};
90	return map { $_->[1] }
91	grep { $_->[0] eq $key }
92	@{ $self->{values}->{resources} };
93	}
94	return $self->{values}->{resources}->{$key} unless @_;
95	my $uri = shift or die(
96	"Did not provide a value to $key()"
97	);
98	$self->resources( $key => $uri );
99	return 1;
100	};
101	}
102
103	foreach my $key ( grep { $_ ne "resources" } @tuple_keys) {
104	*$key = sub {
105	my $self = shift;
106	return $self->{values}->{$key} unless @_;
107	my @added;
108	while ( @_ ) {
109	my $module = shift or last;
110	my $version = shift \|\| 0;
111	push @added, [ $module, $version ];
112	}
113	push @{ $self->{values}->{$key} }, @added;
114	return map {@$_} @added;
115	};
116	}
117
118	# Resource handling
119	my %lc_resource = map { $_ => 1 } qw{
120	homepage
121	license
122	bugtracker
123	repository
124	};
125
126	sub resources {
127	my $self = shift;
128	while ( @_ ) {
129	my $name = shift or last;
130	my $value = shift or next;
131	if ( $name eq lc $name and ! $lc_resource{$name} ) {
132	die("Unsupported reserved lowercase resource '$name'");
133	}
134	$self->{values}->{resources} \|\|= [];
135	push @{ $self->{values}->{resources} }, [ $name, $value ];
136	}
137	$self->{values}->{resources};
138	}
139
140	# Aliases for build_requires that will have alternative
141	# meanings in some future version of META.yml.
142	sub test_requires { shift->build_requires(@_) }
143	sub install_requires { shift->build_requires(@_) }
144
145	# Aliases for installdirs options
146	sub install_as_core { $_[0]->installdirs('perl') }
147	sub install_as_cpan { $_[0]->installdirs('site') }
148	sub install_as_site { $_[0]->installdirs('site') }
149	sub install_as_vendor { $_[0]->installdirs('vendor') }
150
151	sub dynamic_config {
152	my $self = shift;
153	unless ( @_ ) {
154	warn "You MUST provide an explicit true/false value to dynamic_config\n";
155	return $self;
156	}
157	$self->{values}->{dynamic_config} = $_[0] ? 1 : 0;
158	return 1;
159	}
160
161	sub perl_version {
162	my $self = shift;
163	return $self->{values}->{perl_version} unless @_;
164	my $version = shift or die(
165	"Did not provide a value to perl_version()"
166	);
167
168	# Normalize the version
169	$version = $self->_perl_version($version);
170
171	# We don't support the reall old versions
172	unless ( $version >= 5.005 ) {
173	die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n";
174	}
175
176	$self->{values}->{perl_version} = $version;
177	}
178
179	#Stolen from M::B
180	my %license_urls = (
181	perl => 'http://dev.perl.org/licenses/',
182	apache => 'http://apache.org/licenses/LICENSE-2.0',
183	artistic => 'http://opensource.org/licenses/artistic-license.php',
184	artistic_2 => 'http://opensource.org/licenses/artistic-license-2.0.php',
185	lgpl => 'http://opensource.org/licenses/lgpl-license.php',
186	lgpl2 => 'http://opensource.org/licenses/lgpl-2.1.php',
187	lgpl3 => 'http://opensource.org/licenses/lgpl-3.0.html',
188	bsd => 'http://opensource.org/licenses/bsd-license.php',
189	gpl => 'http://opensource.org/licenses/gpl-license.php',
190	gpl2 => 'http://opensource.org/licenses/gpl-2.0.php',
191	gpl3 => 'http://opensource.org/licenses/gpl-3.0.html',
192	mit => 'http://opensource.org/licenses/mit-license.php',
193	mozilla => 'http://opensource.org/licenses/mozilla1.1.php',
194	open_source => undef,
195	unrestricted => undef,
196	restrictive => undef,
197	unknown => undef,
198	);
199
200	sub license {
201	my $self = shift;
202	return $self->{values}->{license} unless @_;
203	my $license = shift or die(
204	'Did not provide a value to license()'
205	);
206	$self->{values}->{license} = $license;
207
208	# Automatically fill in license URLs
209	if ( $license_urls{$license} ) {
210	$self->resources( license => $license_urls{$license} );
211	}
212
213	return 1;
214	}
215
216	sub all_from {
217	my ( $self, $file ) = @_;
218
219	unless ( defined($file) ) {
220	my $name = $self->name or die(
221	"all_from called with no args without setting name() first"
222	);
223	$file = join('/', 'lib', split(/-/, $name)) . '.pm';
224	$file =~ s{.*/}{} unless -e $file;
225	unless ( -e $file ) {
226	die("all_from cannot find $file from $name");
227	}
228	}
229	unless ( -f $file ) {
230	die("The path '$file' does not exist, or is not a file");
231	}
232
233	# Some methods pull from POD instead of code.
234	# If there is a matching .pod, use that instead
235	my $pod = $file;
236	$pod =~ s/\.pm$/.pod/i;
237	$pod = $file unless -e $pod;
238
239	# Pull the different values
240	$self->name_from($file) unless $self->name;
241	$self->version_from($file) unless $self->version;
242	$self->perl_version_from($file) unless $self->perl_version;
243	$self->author_from($pod) unless $self->author;
244	$self->license_from($pod) unless $self->license;
245	$self->abstract_from($pod) unless $self->abstract;
246
247	return 1;
248	}
249
250	sub provides {
251	my $self = shift;
252	my $provides = ( $self->{values}->{provides} \|\|= {} );
253	%$provides = (%$provides, @_) if @_;
254	return $provides;
255	}
256
257	sub auto_provides {
258	my $self = shift;
259	return $self unless $self->is_admin;
260	unless (-e 'MANIFEST') {
261	warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
262	return $self;
263	}
264	# Avoid spurious warnings as we are not checking manifest here.
265	local $SIG{__WARN__} = sub {1};
266	require ExtUtils::Manifest;
267	local *ExtUtils::Manifest::manicheck = sub { return };
268
269	require Module::Build;
270	my $build = Module::Build->new(
271	dist_name => $self->name,
272	dist_version => $self->version,
273	license => $self->license,
274	);
275	$self->provides( %{ $build->find_dist_packages \|\| {} } );
276	}
277
278	sub feature {
279	my $self = shift;
280	my $name = shift;
281	my $features = ( $self->{values}->{features} \|\|= [] );
282	my $mods;
283
284	if ( @_ == 1 and ref( $_[0] ) ) {
285	# The user used ->feature like ->features by passing in the second
286	# argument as a reference. Accomodate for that.
287	$mods = $_[0];
288	} else {
289	$mods = \@_;
290	}
291
292	my $count = 0;
293	push @$features, (
294	$name => [
295	map {
296	ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_
297	} @$mods
298	]
299	);
300
301	return @$features;
302	}
303
304	sub features {
305	my $self = shift;
306	while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
307	$self->feature( $name, @$mods );
308	}
309	return $self->{values}->{features}
310	? @{ $self->{values}->{features} }
311	: ();
312	}
313
314	sub no_index {
315	my $self = shift;
316	my $type = shift;
317	push @{ $self->{values}->{no_index}->{$type} }, @_ if $type;
318	return $self->{values}->{no_index};
319	}
320
321	sub read {
322	my $self = shift;
323	$self->include_deps( 'YAML::Tiny', 0 );
324
325	require YAML::Tiny;
326	my $data = YAML::Tiny::LoadFile('META.yml');
327
328	# Call methods explicitly in case user has already set some values.
329	while ( my ( $key, $value ) = each %$data ) {
330	next unless $self->can($key);
331	if ( ref $value eq 'HASH' ) {
332	while ( my ( $module, $version ) = each %$value ) {
333	$self->can($key)->($self, $module => $version );
334	}
335	} else {
336	$self->can($key)->($self, $value);
337	}
338	}
339	return $self;
340	}
341
342	sub write {
343	my $self = shift;
344	return $self unless $self->is_admin;
345	$self->admin->write_meta;
346	return $self;
347	}
348
349	sub version_from {
350	require ExtUtils::MM_Unix;
351	my ( $self, $file ) = @_;
352	$self->version( ExtUtils::MM_Unix->parse_version($file) );
353	}
354
355	sub abstract_from {
356	require ExtUtils::MM_Unix;
357	my ( $self, $file ) = @_;
358	$self->abstract(
359	bless(
360	{ DISTNAME => $self->name },
361	'ExtUtils::MM_Unix'
362	)->parse_abstract($file)
363	);
364	}
365
366	# Add both distribution and module name
367	sub name_from {
368	my ($self, $file) = @_;
369	if (
370	Module::Install::_read($file) =~ m/
371	^ \s*
372	package \s*
373	([\w:]+)
374	\s* ;
375	/ixms
376	) {
377	my ($name, $module_name) = ($1, $1);
378	$name =~ s{::}{-}g;
379	$self->name($name);
380	unless ( $self->module_name ) {
381	$self->module_name($module_name);
382	}
383	} else {
384	die("Cannot determine name from $file\n");
385	}
386	}
387
388	sub perl_version_from {
389	my $self = shift;
390	if (
391	Module::Install::_read($_[0]) =~ m/
392	^
393	(?:use\|require) \s*
394	v?
395	([\d_\.]+)
396	\s* ;
397	/ixms
398	) {
399	my $perl_version = $1;
400	$perl_version =~ s{_}{}g;
401	$self->perl_version($perl_version);
402	} else {
403	warn "Cannot determine perl version info from $_[0]\n";
404	return;
405	}
406	}
407
408	sub author_from {
409	my $self = shift;
410	my $content = Module::Install::_read($_[0]);
411	if ($content =~ m/
412	=head \d \s+ (?:authors?)\b \s*
413	([^\n]*)
414	\|
415	=head \d \s+ (?:licen[cs]e\|licensing\|copyright\|legal)\b \s*
416	.? copyright .? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
417	([^\n]*)
418	/ixms) {
419	my $author = $1 \|\| $2;
420	$author =~ s{E<lt>}{<}g;
421	$author =~ s{E<gt>}{>}g;
422	$self->author($author);
423	} else {
424	warn "Cannot determine author info from $_[0]\n";
425	}
426	}
427
428	sub license_from {
429	my $self = shift;
430	if (
431	Module::Install::_read($_[0]) =~ m/
432	(
433	=head \d \s+
434	(?:licen[cs]e\|licensing\|copyright\|legal)\b
435	.*?
436	)
437	(=head\\d.\|=cut.\|)
438	\z
439	/ixms ) {
440	my $license_text = $1;
441	my @phrases = (
442	'under the same (?:terms\|license) as (?:perl\|the perl programming language) itself' => 'perl', 1,
443	'GNU general public license' => 'gpl', 1,
444	'GNU public license' => 'gpl', 1,
445	'GNU lesser general public license' => 'lgpl', 1,
446	'GNU lesser public license' => 'lgpl', 1,
447	'GNU library general public license' => 'lgpl', 1,
448	'GNU library public license' => 'lgpl', 1,
449	'BSD license' => 'bsd', 1,
450	'Artistic license' => 'artistic', 1,
451	'GPL' => 'gpl', 1,
452	'LGPL' => 'lgpl', 1,
453	'BSD' => 'bsd', 1,
454	'Artistic' => 'artistic', 1,
455	'MIT' => 'mit', 1,
456	'proprietary' => 'proprietary', 0,
457	);
458	while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
459	$pattern =~ s{\s+}{\\s+}g;
460	if ( $license_text =~ /\b$pattern\b/i ) {
461	$self->license($license);
462	return 1;
463	}
464	}
465	}
466
467	warn "Cannot determine license info from $_[0]\n";
468	return 'unknown';
469	}
470
471	sub _extract_bugtracker {
472	my @links = $_[0] =~ m#L<(\Qhttp://rt.cpan.org/\E[^>]+)>#g;
473	my %links;
474	@links{@links}=();
475	@links=keys %links;
476	return @links;
477	}
478
479	sub bugtracker_from {
480	my $self = shift;
481	my $content = Module::Install::_read($_[0]);
482	my @links = _extract_bugtracker($content);
483	unless ( @links ) {
484	warn "Cannot determine bugtracker info from $_[0]\n";
485	return 0;
486	}
487	if ( @links > 1 ) {
488	warn "Found more than on rt.cpan.org link in $_[0]\n";
489	return 0;
490	}
491
492	# Set the bugtracker
493	bugtracker( $links[0] );
494	return 1;
495	}
496
497	sub requires_from {
498	my $self = shift;
499	my $content = Module::Install::_readperl($_[0]);
500	my @requires = $content =~ m/^use\s+([^\W\d]\w(?:::\w+))\s+([\d\.]+)/mg;
501	while ( @requires ) {
502	my $module = shift @requires;
503	my $version = shift @requires;
504	$self->requires( $module => $version );
505	}
506	}
507
508	sub test_requires_from {
509	my $self = shift;
510	my $content = Module::Install::_readperl($_[0]);
511	my @requires = $content =~ m/^use\s+([^\W\d]\w(?:::\w+))\s+([\d\.]+)/mg;
512	while ( @requires ) {
513	my $module = shift @requires;
514	my $version = shift @requires;
515	$self->test_requires( $module => $version );
516	}
517	}
518
519	# Convert triple-part versions (eg, 5.6.1 or 5.8.9) to
520	# numbers (eg, 5.006001 or 5.008009).
521	# Also, convert double-part versions (eg, 5.8)
522	sub _perl_version {
523	my $v = $_[-1];
524	$v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e;
525	$v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0\|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 \|\| 0)/e;
526	$v =~ s/(\.\d\d\d)000$/$1/;
527	$v =~ s/_.+$//;
528	if ( ref($v) ) {
529	# Numify
530	$v = $v + 0;
531	}
532	return $v;
533	}
534
535
536
537
538
539	######################################################################
540	# MYMETA Support
541
542	sub WriteMyMeta {
543	die "WriteMyMeta has been deprecated";
544	}
545
546	sub write_mymeta_yaml {
547	my $self = shift;
548
549	# We need YAML::Tiny to write the MYMETA.yml file
550	unless ( eval { require YAML::Tiny; 1; } ) {
551	return 1;
552	}
553
554	# Generate the data
555	my $meta = $self->_write_mymeta_data or return 1;
556
557	# Save as the MYMETA.yml file
558	print "Writing MYMETA.yml\n";
559	YAML::Tiny::DumpFile('MYMETA.yml', $meta);
560	}
561
562	sub write_mymeta_json {
563	my $self = shift;
564
565	# We need JSON to write the MYMETA.json file
566	unless ( eval { require JSON; 1; } ) {
567	return 1;
568	}
569
570	# Generate the data
571	my $meta = $self->_write_mymeta_data or return 1;
572
573	# Save as the MYMETA.yml file
574	print "Writing MYMETA.json\n";
575	Module::Install::_write(
576	'MYMETA.json',
577	JSON->new->pretty(1)->canonical->encode($meta),
578	);
579	}
580
581	sub _write_mymeta_data {
582	my $self = shift;
583
584	# If there's no existing META.yml there is nothing we can do
585	return undef unless -f 'META.yml';
586
587	# We need Parse::CPAN::Meta to load the file
588	unless ( eval { require Parse::CPAN::Meta; 1; } ) {
589	return undef;
590	}
591
592	# Merge the perl version into the dependencies
593	my $val = $self->Meta->{values};
594	my $perl = delete $val->{perl_version};
595	if ( $perl ) {
596	$val->{requires} \|\|= [];
597	my $requires = $val->{requires};
598
599	# Canonize to three-dot version after Perl 5.6
600	if ( $perl >= 5.006 ) {
601	$perl =~ s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2\|\|0), int($3\|\|0))}e
602	}
603	unshift @$requires, [ perl => $perl ];
604	}
605
606	# Load the advisory META.yml file
607	my @yaml = Parse::CPAN::Meta::LoadFile('META.yml');
608	my $meta = $yaml[0];
609
610	# Overwrite the non-configure dependency hashs
611	delete $meta->{requires};
612	delete $meta->{build_requires};
613	delete $meta->{recommends};
614	if ( exists $val->{requires} ) {
615	$meta->{requires} = { map { @$_ } @{ $val->{requires} } };
616	}
617	if ( exists $val->{build_requires} ) {
618	$meta->{build_requires} = { map { @$_ } @{ $val->{build_requires} } };
619	}
620
621	return $meta;
622	}
623
624	1;

Lines 1-64 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install/Win32.pm (-64 lines)
1	#line 1
2	package Module::Install::Win32;
3
4	use strict;
5	use Module::Install::Base ();
6
7	use vars qw{$VERSION @ISA $ISCORE};
8	BEGIN {
9	$VERSION = '0.91';
10	@ISA = 'Module::Install::Base';
11	$ISCORE = 1;
12	}
13
14	# determine if the user needs nmake, and download it if needed
15	sub check_nmake {
16	my $self = shift;
17	$self->load('can_run');
18	$self->load('get_file');
19
20	require Config;
21	return unless (
22	$^O eq 'MSWin32' and
23	$Config::Config{make} and
24	$Config::Config{make} =~ /^nmake\b/i and
25	! $self->can_run('nmake')
26	);
27
28	print "The required 'nmake' executable not found, fetching it...\n";
29
30	require File::Basename;
31	my $rv = $self->get_file(
32	url => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
33	ftp_url => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
34	local_dir => File::Basename::dirname($^X),
35	size => 51928,
36	run => 'Nmake15.exe /o > nul',
37	check_for => 'Nmake.exe',
38	remove => 1,
39	);
40
41	die <<'END_MESSAGE' unless $rv;
42
43	-------------------------------------------------------------------------------
44
45	Since you are using Microsoft Windows, you will need the 'nmake' utility
46	before installation. It's available at:
47
48	http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
49	or
50	ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe
51
52	Please download the file manually, save it to a directory in %PATH% (e.g.
53	C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
54	that directory, and run "Nmake15.exe" from there; that will create the
55	'nmake.exe' file needed by this module.
56
57	You may then resume the installation process described in README.
58
59	-------------------------------------------------------------------------------
60	END_MESSAGE
61
62	}
63
64	1;

Lines 1-60 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install/WriteAll.pm (-60 lines)
1	#line 1
2	package Module::Install::WriteAll;
3
4	use strict;
5	use Module::Install::Base ();
6
7	use vars qw{$VERSION @ISA $ISCORE};
8	BEGIN {
9	$VERSION = '0.91';;
10	@ISA = qw{Module::Install::Base};
11	$ISCORE = 1;
12	}
13
14	sub WriteAll {
15	my $self = shift;
16	my %args = (
17	meta => 1,
18	sign => 0,
19	inline => 0,
20	check_nmake => 1,
21	@_,
22	);
23
24	$self->sign(1) if $args{sign};
25	$self->admin->WriteAll(%args) if $self->is_admin;
26
27	$self->check_nmake if $args{check_nmake};
28	unless ( $self->makemaker_args->{PL_FILES} ) {
29	$self->makemaker_args( PL_FILES => {} );
30	}
31
32	# Until ExtUtils::MakeMaker support MYMETA.yml, make sure
33	# we clean it up properly ourself.
34	$self->realclean_files('MYMETA.yml');
35
36	if ( $args{inline} ) {
37	$self->Inline->write;
38	} else {
39	$self->Makefile->write;
40	}
41
42	# The Makefile write process adds a couple of dependencies,
43	# so write the META.yml files after the Makefile.
44	if ( $args{meta} ) {
45	$self->Meta->write;
46	}
47
48	# Experimental support for MYMETA
49	if ( $ENV{X_MYMETA} ) {
50	if ( $ENV{X_MYMETA} eq 'JSON' ) {
51	$self->Meta->write_mymeta_json;
52	} else {
53	$self->Meta->write_mymeta_yaml;
54	}
55	}
56
57	return 1;
58	}
59
60	1;

Lines 1-430 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/inc/Module/Install.pm (-430 lines)
1	#line 1
2	package Module::Install;
3
4	# For any maintainers:
5	# The load order for Module::Install is a bit magic.
6	# It goes something like this...
7	#
8	# IF ( host has Module::Install installed, creating author mode ) {
9	# 1. Makefile.PL calls "use inc::Module::Install"
10	# 2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
11	# 3. The installed version of inc::Module::Install loads
12	# 4. inc::Module::Install calls "require Module::Install"
13	# 5. The ./inc/ version of Module::Install loads
14	# } ELSE {
15	# 1. Makefile.PL calls "use inc::Module::Install"
16	# 2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
17	# 3. The ./inc/ version of Module::Install loads
18	# }
19
20	use 5.005;
21	use strict 'vars';
22
23	use vars qw{$VERSION $MAIN};
24	BEGIN {
25	# All Module::Install core packages now require synchronised versions.
26	# This will be used to ensure we don't accidentally load old or
27	# different versions of modules.
28	# This is not enforced yet, but will be some time in the next few
29	# releases once we can make sure it won't clash with custom
30	# Module::Install extensions.
31	$VERSION = '0.91';
32
33	# Storage for the pseudo-singleton
34	$MAIN = undef;
35
36	inc::Module::Install::VERSION = VERSION;
37	@inc::Module::Install::ISA = __PACKAGE__;
38
39	}
40
41
42
43
44
45	# Whether or not inc::Module::Install is actually loaded, the
46	# $INC{inc/Module/Install.pm} is what will still get set as long as
47	# the caller loaded module this in the documented manner.
48	# If not set, the caller may NOT have loaded the bundled version, and thus
49	# they may not have a MI version that works with the Makefile.PL. This would
50	# result in false errors or unexpected behaviour. And we don't want that.
51	my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
52	unless ( $INC{$file} ) { die <<"END_DIE" }
53
54	Please invoke ${\__PACKAGE__} with:
55
56	use inc::${\__PACKAGE__};
57
58	not:
59
60	use ${\__PACKAGE__};
61
62	END_DIE
63
64
65
66
67
68	# If the script that is loading Module::Install is from the future,
69	# then make will detect this and cause it to re-run over and over
70	# again. This is bad. Rather than taking action to touch it (which
71	# is unreliable on some platforms and requires write permissions)
72	# for now we should catch this and refuse to run.
73	if ( -f $0 ) {
74	my $s = (stat($0))[9];
75
76	# If the modification time is only slightly in the future,
77	# sleep briefly to remove the problem.
78	my $a = $s - time;
79	if ( $a > 0 and $a < 5 ) { sleep 5 }
80
81	# Too far in the future, throw an error.
82	my $t = time;
83	if ( $s > $t ) { die <<"END_DIE" }
84
85	Your installer $0 has a modification time in the future ($s > $t).
86
87	This is known to create infinite loops in make.
88
89	Please correct this, then run $0 again.
90
91	END_DIE
92	}
93
94
95
96
97
98	# Build.PL was formerly supported, but no longer is due to excessive
99	# difficulty in implementing every single feature twice.
100	if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" }
101
102	Module::Install no longer supports Build.PL.
103
104	It was impossible to maintain duel backends, and has been deprecated.
105
106	Please remove all Build.PL files and only use the Makefile.PL installer.
107
108	END_DIE
109
110
111
112
113
114	# To save some more typing in Module::Install installers, every...
115	# use inc::Module::Install
116	# ...also acts as an implicit use strict.
117	$^H \|= strict::bits(qw(refs subs vars));
118
119
120
121
122
123	use Cwd ();
124	use File::Find ();
125	use File::Path ();
126	use FindBin;
127
128	sub autoload {
129	my $self = shift;
130	my $who = $self->_caller;
131	my $cwd = Cwd::cwd();
132	my $sym = "${who}::AUTOLOAD";
133	$sym->{$cwd} = sub {
134	my $pwd = Cwd::cwd();
135	if ( my $code = $sym->{$pwd} ) {
136	# Delegate back to parent dirs
137	goto &$code unless $cwd eq $pwd;
138	}
139	$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
140	my $method = $1;
141	if ( uc($method) eq $method ) {
142	# Do nothing
143	return;
144	} elsif ( $method =~ /^_/ and $self->can($method) ) {
145	# Dispatch to the root M:I class
146	return $self->$method(@_);
147	}
148
149	# Dispatch to the appropriate plugin
150	unshift @_, ( $self, $1 );
151	goto &{$self->can('call')};
152	};
153	}
154
155	sub import {
156	my $class = shift;
157	my $self = $class->new(@_);
158	my $who = $self->_caller;
159
160	unless ( -f $self->{file} ) {
161	require "$self->{path}/$self->{dispatch}.pm";
162	File::Path::mkpath("$self->{prefix}/$self->{author}");
163	$self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
164	$self->{admin}->init;
165	@_ = ($class, _self => $self);
166	goto &{"$self->{name}::import"};
167	}
168
169	*{"${who}::AUTOLOAD"} = $self->autoload;
170	$self->preload;
171
172	# Unregister loader and worker packages so subdirs can use them again
173	delete $INC{"$self->{file}"};
174	delete $INC{"$self->{path}.pm"};
175
176	# Save to the singleton
177	$MAIN = $self;
178
179	return 1;
180	}
181
182	sub preload {
183	my $self = shift;
184	unless ( $self->{extensions} ) {
185	$self->load_extensions(
186	"$self->{prefix}/$self->{path}", $self
187	);
188	}
189
190	my @exts = @{$self->{extensions}};
191	unless ( @exts ) {
192	@exts = $self->{admin}->load_all_extensions;
193	}
194
195	my %seen;
196	foreach my $obj ( @exts ) {
197	while (my ($method, $glob) = each %{ref($obj) . '::'}) {
198	next unless $obj->can($method);
199	next if $method =~ /^_/;
200	next if $method eq uc($method);
201	$seen{$method}++;
202	}
203	}
204
205	my $who = $self->_caller;
206	foreach my $name ( sort keys %seen ) {
207	*{"${who}::$name"} = sub {
208	${"${who}::AUTOLOAD"} = "${who}::$name";
209	goto &{"${who}::AUTOLOAD"};
210	};
211	}
212	}
213
214	sub new {
215	my ($class, %args) = @_;
216
217	# ignore the prefix on extension modules built from top level.
218	my $base_path = Cwd::abs_path($FindBin::Bin);
219	unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
220	delete $args{prefix};
221	}
222
223	return $args{_self} if $args{_self};
224
225	$args{dispatch} \|\|= 'Admin';
226	$args{prefix} \|\|= 'inc';
227	$args{author} \|\|= ($^O eq 'VMS' ? '_author' : '.author');
228	$args{bundle} \|\|= 'inc/BUNDLES';
229	$args{base} \|\|= $base_path;
230	$class =~ s/^\Q$args{prefix}\E:://;
231	$args{name} \|\|= $class;
232	$args{version} \|\|= $class->VERSION;
233	unless ( $args{path} ) {
234	$args{path} = $args{name};
235	$args{path} =~ s!::!/!g;
236	}
237	$args{file} \|\|= "$args{base}/$args{prefix}/$args{path}.pm";
238	$args{wrote} = 0;
239
240	bless( \%args, $class );
241	}
242
243	sub call {
244	my ($self, $method) = @_;
245	my $obj = $self->load($method) or return;
246	splice(@_, 0, 2, $obj);
247	goto &{$obj->can($method)};
248	}
249
250	sub load {
251	my ($self, $method) = @_;
252
253	$self->load_extensions(
254	"$self->{prefix}/$self->{path}", $self
255	) unless $self->{extensions};
256
257	foreach my $obj (@{$self->{extensions}}) {
258	return $obj if $obj->can($method);
259	}
260
261	my $admin = $self->{admin} or die <<"END_DIE";
262	The '$method' method does not exist in the '$self->{prefix}' path!
263	Please remove the '$self->{prefix}' directory and run $0 again to load it.
264	END_DIE
265
266	my $obj = $admin->load($method, 1);
267	push @{$self->{extensions}}, $obj;
268
269	$obj;
270	}
271
272	sub load_extensions {
273	my ($self, $path, $top) = @_;
274
275	unless ( grep { ! ref $_ and lc $_ eq lc $self->{prefix} } @INC ) {
276	unshift @INC, $self->{prefix};
277	}
278
279	foreach my $rv ( $self->find_extensions($path) ) {
280	my ($file, $pkg) = @{$rv};
281	next if $self->{pathnames}{$pkg};
282
283	local $@;
284	my $new = eval { require $file; $pkg->can('new') };
285	unless ( $new ) {
286	warn $@ if $@;
287	next;
288	}
289	$self->{pathnames}{$pkg} = delete $INC{$file};
290	push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
291	}
292
293	$self->{extensions} \|\|= [];
294	}
295
296	sub find_extensions {
297	my ($self, $path) = @_;
298
299	my @found;
300	File::Find::find( sub {
301	my $file = $File::Find::name;
302	return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
303	my $subpath = $1;
304	return if lc($subpath) eq lc($self->{dispatch});
305
306	$file = "$self->{path}/$subpath.pm";
307	my $pkg = "$self->{name}::$subpath";
308	$pkg =~ s!/!::!g;
309
310	# If we have a mixed-case package name, assume case has been preserved
311	# correctly. Otherwise, root through the file to locate the case-preserved
312	# version of the package name.
313	if ( $subpath eq lc($subpath) \|\| $subpath eq uc($subpath) ) {
314	my $content = Module::Install::_read($subpath . '.pm');
315	my $in_pod = 0;
316	foreach ( split //, $content ) {
317	$in_pod = 1 if /^=\w/;
318	$in_pod = 0 if /^=cut/;
319	next if ($in_pod \|\| /^=cut/); # skip pod text
320	next if /^\s*#/; # and comments
321	if ( m/^\spackage\s+($pkg)\s;/i ) {
322	$pkg = $1;
323	last;
324	}
325	}
326	}
327
328	push @found, [ $file, $pkg ];
329	}, $path ) if -d $path;
330
331	@found;
332	}
333
334
335
336
337
338	#####################################################################
339	# Common Utility Functions
340
341	sub _caller {
342	my $depth = 0;
343	my $call = caller($depth);
344	while ( $call eq __PACKAGE__ ) {
345	$depth++;
346	$call = caller($depth);
347	}
348	return $call;
349	}
350
351	sub _read {
352	local *FH;
353	if ( $] >= 5.006 ) {
354	open( FH, '<', $_[0] ) or die "open($_[0]): $!";
355	} else {
356	open( FH, "< $_[0]" ) or die "open($_[0]): $!";
357	}
358	my $string = do { local $/; <FH> };
359	close FH or die "close($_[0]): $!";
360	return $string;
361	}
362
363	sub _readperl {
364	my $string = Module::Install::_read($_[0]);
365	$string =~ s/(?:\015{1,2}\012\|\015\|\012)/\n/sg;
366	$string =~ s/(\n)\n__(?:DATA\|END)__\b.\z/$1/s;
367	$string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg;
368	return $string;
369	}
370
371	sub _readpod {
372	my $string = Module::Install::_read($_[0]);
373	$string =~ s/(?:\015{1,2}\012\|\015\|\012)/\n/sg;
374	return $string if $_[0] =~ /\.pod\z/;
375	$string =~ s/(^\|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+\|\z)/$1$2/sg;
376	$string =~ s/\n=pod\b[^\n]\n+/\n\n/sg;
377	$string =~ s/\n=cut\b[^\n]\n+/\n\n/sg;
378	$string =~ s/^\n+//s;
379	return $string;
380	}
381
382	sub _write {
383	local *FH;
384	if ( $] >= 5.006 ) {
385	open( FH, '>', $_[0] ) or die "open($_[0]): $!";
386	} else {
387	open( FH, "> $_[0]" ) or die "open($_[0]): $!";
388	}
389	foreach ( 1 .. $#_ ) {
390	print FH $_[$_] or die "print($_[0]): $!";
391	}
392	close FH or die "close($_[0]): $!";
393	}
394
395	# _version is for processing module versions (eg, 1.03_05) not
396	# Perl versions (eg, 5.8.1).
397	sub _version ($) {
398	my $s = shift \|\| 0;
399	my $d =()= $s =~ /(\.)/g;
400	if ( $d >= 2 ) {
401	# Normalise multipart versions
402	$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
403	}
404	$s =~ s/^(\d+)\.?//;
405	my $l = $1 \|\| 0;
406	my @v = map {
407	$_ . '0' x (3 - length $_)
408	} $s =~ /(\d{1,3})\D?/g;
409	$l = $l . '.' . join '', @v if @v;
410	return $l + 0;
411	}
412
413	sub _cmp ($$) {
414	_version($_[0]) <=> _version($_[1]);
415	}
416
417	# Cloned from Params::Util::_CLASS
418	sub _CLASS ($) {
419	(
420	defined $_[0]
421	and
422	! ref $_[0]
423	and
424	$_[0] =~ m/^[^\W\d]\w(?:::\w+)\z/s
425	) ? $_[0] : undef;
426	}
427
428	1;
429
430	# Copyright 2008 - 2009 Adam Kennedy.

Lines 1-28 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/testdata/META.yml (-28 lines)
1	---
2	abstract: 'Test dependency between module and META.yml'
3	author:
4	- 'Takuya Tsuchida tsucchi@cpan.org'
5	build_requires:
6	ExtUtils::MakeMaker: 6.42
7	Test::More: 0.88
8	configure_requires:
9	ExtUtils::MakeMaker: 6.42
10	distribution_type: module
11	generated_by: 'Module::Install version 0.91'
12	license: perl
13	meta-spec:
14	url: http://module-build.sourceforge.net/META-spec-v1.4.html
15	version: 1.4
16	name: Test-Module-Used
17	no_index:
18	directory:
19	- inc
20	- t
21	- xt
22	requires:
23	Module::Used: 0
24	PPI::Document: 0
25	perl: 5.8.0
26	resources:
27	license: http://dev.perl.org/licenses/
28	version: 0.0.1

Lines 1-26 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/testdata/META.yml3 (-26 lines)
1	---
2	abstract: 'write description here'
3	author:
4	- 'Takuya Tsuchida E<lt>takuya.tsuchida@gmail.com<gt>'
5	build_requires:
6	ExtUtils::MakeMaker: 6.42
7	Test::More: 0.88
8	configure_requires:
9	ExtUtils::MakeMaker: 6.42
10	distribution_type: module
11	generated_by: 'Module::Install version 0.91'
12	license: perl
13	meta-spec:
14	url: http://module-build.sourceforge.net/META-spec-v1.4.html
15	version: 1.4
16	name: My-Test
17	no_index:
18	directory:
19	- inc
20	- t
21	- xt
22	requires:
23	perl: 5.8.0
24	resources:
25	license: http://dev.perl.org/licenses/
26	version: 0.0.1

Lines 1-42 Link Here

(-)/usr/home/tsucchi/ports/work/devel/p5-Test-Module-Used/work/Test-Module-Used-0.1.8/testdata/lib2/My/Test.pm (-42 lines)
1	package My::Test;
2	use strict;
3	use warnings;
4
5	our $VERSION = "0.0.1";
6	#use 5.008;
7
8	=head1 NAME
9
10	My::Test - write description here
11
12	=head1 SYNOPSIS
13
14	write synopsis here
15
16	=head1 DESCRIPTION
17
18	write description here
19	=cut
20
21
22	1;
23	__END__
24
25	=head1 AUTHOR
26
27	Takuya Tsuchida E<lt>takuya.tsuchida@gmail.com<gt>
28
29	=head1 SEE ALSO
30
31	write here if related module exists
32
33	=head1 REPOSITORY
34
35	write source code repository
36
37	=head1 LICENSE
38
39	This library is free software; you can redistribute it and/or modify
40	it under the same terms as Perl itself.
41
42	=cut