Initial commit of OpenSPARC T2 design and verification files.

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

package Tk::Submethods;

use vars qw($VERSION);
$VERSION = '3.014'; # $Id: //depot/Tk8/Tk/Submethods.pm#14 $

sub import
{
my $class = shift;
no strict 'refs';
my $package = caller(0);
while (@_)
 {
  my $fn = shift;
  my $sm = shift;
  foreach my $sub (@{$sm})
   {
    my ($suffix) = $sub =~ /(\w+)$/;
    my $pfn = $package.'::'.$fn;
    *{$pfn."\u$suffix"} = sub { shift->$pfn($sub,@_) };
   }
 }
}

sub Direct
{
my $class = shift;
no strict 'refs';
my $package = caller(0);
while (@_)
 {
  my $fn = shift;
  my $sm = shift;
  my $sub;
  foreach $sub (@{$sm})
   {
    # eval "sub ${package}::${sub} { shift->$fn('$sub',\@_) }";
    *{$package.'::'.$sub} = sub { shift->$fn($sub,@_) };
   }
 }
}

1;

__END__

=cut