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 *
#	User	Rev	Content
1	root	1.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