![]() |
![]()
| ![]() |
![]()
NAMEModule::Recursive::Require - This class require module recursively. DESCRIPTION# ************************************** before use MyApp::Foo; use MyApp::Foo::CGI; use MyApp::Foo::Mail; use MyApp::Foo::Mail::Send; # use use use use use !! use MyApp::Foo::Hoge::Orz; # ************************************** after use Module::Recursive::Require; use MyApp::Foo; my @required_packages = Module::Recursive::Require->new()->require_by('MyApp::Foo'); SYNOPSISuse Module::Recursive::Require; my $r = Module::Recursive::Require->new(); $r->first_loads( qw/ MyApp::Foo::Boo / ); # * It loads first. $r->add_filter(qr/^Hoge/); # * Don't loaded qr/^Hoge/ $r->add_filter(qr/Base.pm$/); # * Don't loaded qr/Base.pm$/ my @packages = $r->require_of('MyApp::Foo'); # * or my $packages_array_ref = $r->require_of('MyApp::Foo'); METHODnew( \%args )%args = ( path => '/var/www/my/lib', # * default $INC[0] extensions => 'pm' , # * default "pm" and "pl" ); first_loads( @package_names );add_filter(qr/regexp/)require_of( 'MyApp::Foo' );require_by( 'MyApp::Foo' );Deprecated. For backwards compatibility only. SEE ALSOUNIVERSAL::require AUTHORMasahiro Funakoshi <masap@cpan.org>
|