sub import_api_ex { my ( $lib, $sig ) = @_; my $key = join "_", map { uc } ( $lib, $sig ); $api{$key} = Win32::API->new( $lib, $sig ) unless exists $api{$key}; return $api{$key}; } sub define_struct { my ( $name, @params ) = @_; Win32::API::Struct->typedef( $name, @params ); }