diff options
| -rw-r--r-- | src/perl/common/Irssi.pm | 7 | ||||
| -rw-r--r-- | src/perl/irc/Irc.pm | 2 | ||||
| -rw-r--r-- | src/perl/textui/TextUI.pm | 2 | ||||
| -rw-r--r-- | src/perl/ui/UI.pm | 2 |
4 files changed, 13 insertions, 0 deletions
diff --git a/src/perl/common/Irssi.pm b/src/perl/common/Irssi.pm index 56c23f75..ce35c52e 100644 --- a/src/perl/common/Irssi.pm +++ b/src/perl/common/Irssi.pm @@ -13,6 +13,11 @@ sub VERSION { if ($version > version()); } +sub EXPORT_ALL () { + no strict 'refs'; + @EXPORT_OK = grep { /[a-z]/ && defined *{$_}{CODE} } keys %Irssi::; +} + $VERSION = "0.9"; require Exporter; @@ -37,5 +42,7 @@ bootstrap Irssi $VERSION if (!Irssi::Core::is_static()); Irssi::init(); +Irssi::EXPORT_ALL(); + 1; diff --git a/src/perl/irc/Irc.pm b/src/perl/irc/Irc.pm index ee4e3c56..1d95462d 100644 --- a/src/perl/irc/Irc.pm +++ b/src/perl/irc/Irc.pm @@ -20,5 +20,7 @@ bootstrap Irssi::Irc $VERSION if (!Irssi::Core::is_static()); Irssi::Irc::init(); +Irssi::EXPORT_ALL(); + 1; diff --git a/src/perl/textui/TextUI.pm b/src/perl/textui/TextUI.pm index 69175771..50f247c7 100644 --- a/src/perl/textui/TextUI.pm +++ b/src/perl/textui/TextUI.pm @@ -20,5 +20,7 @@ bootstrap Irssi::TextUI $VERSION if (!Irssi::Core::is_static()); Irssi::TextUI::init(); +Irssi::EXPORT_ALL(); + 1; diff --git a/src/perl/ui/UI.pm b/src/perl/ui/UI.pm index e7058423..5bab7b6b 100644 --- a/src/perl/ui/UI.pm +++ b/src/perl/ui/UI.pm @@ -20,4 +20,6 @@ bootstrap Irssi::UI $VERSION if (!Irssi::Core::is_static()); Irssi::UI::init(); +Irssi::EXPORT_ALL(); + 1; |