require $pathtool; #### require "File::Path"; #### eval "require $pathtool"; #### require File::Path; #### sub require_package { for (@_) { (my $file = $_) =~ s-::|'-/-g; require "$file.pm"; }; };
## require "File::Path"; ##
## eval "require $pathtool"; ##
## require File::Path; ##
## sub require_package { for (@_) { (my $file = $_) =~ s-::|'-/-g; require "$file.pm"; }; };