[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / Tk / widgets.pm

package Tk::widgets;
use Carp;

use vars qw($VERSION);
$VERSION = '3.011'; # $Id: //depot/Tk8/Tk/widgets.pm#11 $

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
Commit	Line	Data
86530b38 AT	1	package Tk::widgets;
	2	use Carp;
	3
	4	use vars qw($VERSION);
	5	$VERSION = '3.011'; # $Id: //depot/Tk8/Tk/widgets.pm#11 $
	6
	7	sub import
	8	{
	9	my $class = shift;
	10	foreach (@_)
	11	{
	12	local $SIG{__DIE__} = \&Carp::croak;
	13	# carp "$_ already loaded" if (exists $INC{"Tk/$_.pm"});
	14	require "Tk/$_.pm";
	15	}
	16	}
	17
	18	1;
	19	__END__
	20
	21	=cut