# # spec file for package perl-Module-Path-More # # Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed # upon. The license for this file, and modifications and additions to the # file, is the same license as for the pristine package itself (unless the # license for the pristine package is not an Open Source License, in which # case the license is the MIT License). An "Open Source License" is a # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. # Please submit bugfixes or comments via http://bugs.opensuse.org/ # Name: perl-Module-Path-More Version: 0.28 Release: 0 %define cpan_name Module-Path-More Summary: Get path to locally installed Perl module License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Module-Path-More/ Source0: http://www.cpan.org/authors/id/P/PE/PERLANCAR/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Rinci) >= 1.1.0 BuildRequires: perl(Test::Exception) BuildRequires: perl(Test::More) >= 0.98 Requires: perl(Rinci) >= 1.1.0 %{perl_requires} %description Module::Path::More provides a function, 'module_path()', which will find where a module (or module prefix, or .pod file) is installed locally. (There is also another function 'pod_path()' which is just a convenience wrapper.) It works by looking in all the directories in @INC for an appropriately named file. If module is 'Foo::Bar', will search for 'Foo/Bar.pm', 'Foo/Bar.pmc' (if 'find_pmc' argument is true), 'Foo/Bar' directory (if 'find_prefix' argument is true), or 'Foo/Bar.pod' (if 'find_pod' argument is true). Caveats: Obviously this only works where the module you're after has its own '.pm' file. If a file defines multiple packages, this won't work. This also won't find any modules that are being loaded in some special way, for example using a code reference in '@INC', as described in 'require' in the perlfunc manpage. To check whether a module is available/loadable, it's generally better to use something like: if (eval { require Some::Module; 1 }) { # module is available } because this works with fatpacking or any other '@INC' hook that might be installed. If you use: if (module_path(module => "Some::Module")) { # module is available } then it only works if the module is locatable in the filesystem. But on the other hand this method can avoid actual loading of the module. %prep %setup -q -n %{cpan_name}-%{version} %build %{__perl} Makefile.PL INSTALLDIRS=vendor %{__make} %{?_smp_mflags} %check %{__make} test %install %perl_make_install %perl_process_packlist %perl_gen_filelist %files -f %{name}.files %defattr(-,root,root,755) %doc Changes LICENSE README TODO.md %changelog