[iwhome/iw-perl/site/lib/testing/foo.pm]
[iwhome/iw-perl/vendor/lib/testing/bar.pm]
[/tmp/foo.ipl]
eval "use testing::foo qw(foo);";
In reply to:Amazingly enough, this is even documented correctly. See http://TSserver/iw/help/tst/pt/TeamSite__PT__iw_xml.html, where it states:Classes that derive from TeamSite:T::iw_xml must be installed in:<path-to-TeamSite-perl-module-dir>/TeamSite/PT/ in order to beused by PTparser.pm
652 # tag modules are located directly below the PTparser.pm 653 my $iw_xmldir = File::Basename::dirname( __FILE__ ) . '/PT'; 654 655 opendir (PT, "$iw_xmldir") or die "could not open $iw_xmldir"; 656 657 my @iw_xml = map { s/\.pm$//; $_} grep { /\.pm$/ } readdir PT; 658 659 foreach my $tag (@iw_xml) 660 { 661 # so that it's easy to hook things in later, 662 # set a flag in our "known iw_xml elements" hash 663 # (tag modules actually get pulled in just prior 664 # to first use via an evaled 'use' directive). 665 666 $this->{iw_xml}{init_state}{$tag} = -1; # defined, no init yet 667 } # >=0 means init ran
Good detective work - please do find the time to file it and post the bug id to the forum.