git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/lib/Wx/Mini.pm

   1 package Wx::Mini; # for RPM
   2
   3 package Wx;
   4
   5 use strict;
   6
   7 our( $VERSION, $XS_VERSION );
   8 our $alien_key = 'XXXALIENXXX';
   9
  10 {
  11     my $VAR1;
  12     $Wx::dlls = XXXDLLSXXX;
  13 }
  14
  15 $VERSION = '0.96'; # bootstrap will catch wrong versions
  16 $XS_VERSION = $VERSION;
  17 $VERSION = eval $VERSION;
  18
  19 #
  20 # XSLoader/DynaLoader wrapper
  21 #
  22 our( $wx_path );
  23
  24 sub wxPL_STATIC();
  25 sub wx_boot($$) {
  26   local $ENV{PATH} = $wx_path . ';' . $ENV{PATH} if $wx_path;
  27   if( $_[0] eq 'Wx' || !wxPL_STATIC ) {
  28     if( $] < 5.006 ) {
  29       require DynaLoader;
  30       no strict 'refs';
  31       push @{"$_[0]::ISA"}, 'DynaLoader';
  32       $_[0]->bootstrap( $_[1] );
  33     } else {
  34       require XSLoader;
  35       XSLoader::load( $_[0], $_[1] );
  36     }
  37   } else {
  38     no strict 'refs';
  39     my $t = $_[0]; $t =~ tr/:/_/;
  40     &{"_boot_$t"}( $_[0], $_[1] );
  41   }
  42 }
  43
  44 sub _alien_path {
  45   return if defined $wx_path;
  46   return unless length 'XXXALIENDXXX';
  47   foreach ( @INC ) {
  48     if( -d "$_/Alien/wxWidgets/XXXALIENDXXX" ) {
  49       $wx_path = "$_/Alien/wxWidgets/XXXALIENDXXX/lib";
  50       last;
  51     }
  52   }
  53 }
  54
  55 _alien_path();
  56
  57 sub _start {
  58     wx_boot( 'Wx', $XS_VERSION );
  59
  60     _boot_Constant( 'Wx', $XS_VERSION );
  61     _boot_GDI( 'Wx', $XS_VERSION );
  62
  63     Load();
  64 }
  65
  66 1;