Noname1.pm:
package Noname1; use strict; use Warnings; my @added; BEGIN { my %Seen = %INC; require CGI; @added = grep {! exists $Seen{$_}} keys %INC; } sub Added { return @added; } 1;
Noname.pl:
use strict; use Warnings; use Noname1; use CGI; my @added = Noname1::Added (); print "@added";
Prints:
CGI/Util.pm CGI.pm
In reply to Re: How to keep track of INC hash?
by GrandFather
in thread How to keep track of INC hash?
by jacques
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |