1 | package DC::OpenGL; | 1 | package DC::OpenGL; |
---|---|---|---|
2 | 2 | ||
3 | use strict; | 3 | use common::sense; |
4 | 4 | ||
5 | use Carp (); | 5 | use Carp (); |
6 | use DC; | 6 | use DC; |
7 | 7 | ||
8 | our %GL_EXT; | 8 | our %GL_EXT; |
… | … | ||
18 | our %INIT_HOOK; | 18 | our %INIT_HOOK; |
19 | our %SHUTDOWN_HOOK; | 19 | our %SHUTDOWN_HOOK; |
20 | 20 | ||
21 | sub import { | 21 | sub import { |
22 | my $caller = caller; | 22 | my $caller = caller; |
23 | |||
24 | no strict; | ||
25 | 23 | ||
26 | my $symtab = *{"main::DC::OpenGL::"}{HASH}; | 24 | my $symtab = *{"main::DC::OpenGL::"}{HASH}; |
27 | 25 | ||
28 | for (keys %$symtab) { | 26 | for (keys %$symtab) { |
29 | *{"$caller\::$_"} = *$_ | 27 | *{"$caller\::$_"} = *$_ |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |