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