Deliantra-Client/DC/OpenGL.pm

package CFClient::OpenGL;

use strict;

#use CFClient;

sub import {
   my $caller = caller;

   no strict;

   my $symtab = *{"main::CFClient::OpenGL::"}{HASH};

   for (keys %$symtab) {
      *{"$caller\::$_"} = \&$_
         if /^(?:gl|GL_)/;
   }
}

1
Revision:	1.1
Committed:	Wed Apr 19 23:37:49 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Log Message:	* empty log message *
#	Content
1	package CFClient::OpenGL;
2
3	use strict;
4
5	#use CFClient;
6
7	sub import {
8	my $caller = caller;
9
10	no strict;
11
12	my $symtab = *{"main::CFClient::OpenGL::"}{HASH};
13
14	for (keys %$symtab) {
15	*{"$caller\::$_"} = \&$_
16	if /^(?:gl\|GL_)/;
17	}
18	}
19
20	1