home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / widgets.pm < prev    next >
Encoding:
Perl POD Document  |  1997-08-10  |  454 b   |  32 lines
  1. package Tk::widgets;
  2. use Carp;
  3.  
  4. sub import
  5. {
  6.  my $class = shift;
  7.  foreach (@_)
  8.   {
  9.    local $SIG{__DIE__} = \&Carp::croak;
  10.    carp "$_ already loaded" if (exists $INC{"Tk/$_.pm"});
  11.    require "Tk/$_.pm";
  12.   }
  13. }
  14.  
  15. 1;
  16. __END__
  17.  
  18. =head1 NAME
  19.  
  20. Tk::widgets - preload widget classes
  21.  
  22. =head1 SYNOPSIS
  23.  
  24.   use Tk::widgets qw(Button Label Frame);
  25.  
  26. =head1 DESCRIPTION
  27.  
  28. Does a 'require Tk::Foo' for each 'Foo' in the list.
  29. May speed startup by avoiding AUTOLOADs.
  30.  
  31. =cut
  32.