You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
647 B
25 lines
647 B
13 years ago
|
package TQt::GlobalSpace;
|
||
|
13 years ago
|
use strict;
|
||
|
13 years ago
|
require TQt;
|
||
|
13 years ago
|
require Exporter;
|
||
|
|
|
||
|
|
our @ISA = qw(Exporter);
|
||
|
|
our @EXPORT;
|
||
|
13 years ago
|
our $allMeth = TQt::_internal::findAllMethods( TQt::_internal::idClass("TQGlobalSpace") );
|
||
|
13 years ago
|
no strict 'refs';
|
||
|
|
|
||
|
|
for my $proto( keys %$allMeth )
|
||
|
|
{
|
||
|
|
next if $proto =~ /operator\W/; # skip operators
|
||
|
|
$proto =~ s/[\#\$\?]+$//;
|
||
|
|
*{ $proto } = sub
|
||
|
|
{
|
||
|
13 years ago
|
$TQt::_internal::autoload::AUTOLOAD = "TQt::GlobalSpace\::$proto";
|
||
|
|
goto &TQt::GlobalSpace::AUTOLOAD
|
||
|
13 years ago
|
} unless defined &$proto;
|
||
|
|
push @EXPORT, $proto;
|
||
|
|
}
|
||
|
|
|
||
|
|
our %EXPORT_TAGS = ( "all" => [@EXPORT] );
|
||
|
|
|
||
|
|
1;
|