home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netrunner 2004 October
/
NETRUNNER0410.ISO
/
regular
/
ActivePerl-5.8.4.810-MSWin32-x86.msi
/
_149fa39a3a61b802df973cd2b9720e0f
< prev
next >
Wrap
Text File
|
2004-06-01
|
335b
|
22 lines
package Tk::widgets;
use Carp;
use vars qw($VERSION);
$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/widgets.pm#4 $
sub import
{
my $class = shift;
foreach (@_)
{
local $SIG{__DIE__} = \&Carp::croak;
# carp "$_ already loaded" if (exists $INC{"Tk/$_.pm"});
require "Tk/$_.pm";
}
}
1;
__END__
=cut