apps/irssi/src/perl/ui/UI.pm

   1 #
   2 # Perl interface to irssi functions.
   3 #
   4
   5 package Irssi::UI;
   6
   7 use strict;
   8 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
   9
  10 $VERSION = "0.9";
  11
  12 require Exporter;
  13 require DynaLoader;
  14
  15 sub Irssi::UI::Window::create_handle {
  16   goto &Irssi::create_window_handle;
  17 }
  18
  19 @ISA = qw(Exporter DynaLoader);
  20 @EXPORT = qw();
  21 @EXPORT_OK = qw();
  22
  23 bootstrap Irssi::UI $VERSION if (!Irssi::Core::is_static());
  24
  25 Irssi::UI::init();
  26
  27 Irssi::EXPORT_ALL();
  28
  29 1;