PerlTQt/lib/TQt/GlobalSpace.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

package TQt::GlobalSpace;
use strict;
require TQt;
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT;
our $allMeth = TQt::_internal::findAllMethods( TQt::_internal::idClass("TQGlobalSpace") );
no strict 'refs';

for my $proto( keys %$allMeth )
{
    next if $proto =~ /operator\W/; # skip operators
    $proto =~ s/[\#\$\?]+$//;
    *{ $proto } = sub
                   {
                        $TQt::_internal::autoload::AUTOLOAD = "TQt::GlobalSpace\::$proto";
                        goto &TQt::GlobalSpace::AUTOLOAD
                   } unless defined &$proto;
     push @EXPORT, $proto;
}

our %EXPORT_TAGS = ( "all" => [@EXPORT] );

1;