Changeset 2be605a

Timestamp:

Jul 18, 2009, 11:13:30 AM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

203dcda

Parents:

96f7b07

Message:

Add BarnOwl commands to @EXPORT_OK.

Location:

perl/lib

Files:

• BarnOwl.pm (modified) (1 diff)
• BarnOwl/Editwin.pm (modified) (1 diff)
• BarnOwl/Hooks.pm (modified) (2 diffs)

perl/lib/BarnOwl.pm

@@ -3 +3 @@
 
 package BarnOwl;
+
+use base qw(Exporter);
+our @EXPORT_OK = qw(command getcurmsg getnumcols getidletime
+                    zephyr_getsender zephyr_getrealm zephyr_zwrite
+                    zephyr_stylestrip zephyr_smartstrip_user zephyr_getsubs
+                    queue_message admin_message
+                    start_question start_password start_edit_win
+                    get_data_dir get_config_dir popless_text popless_ztext
+                    error
+                    create_style getnumcolors wordwrap
+                    add_dispath remove_dispatch
+                    new_command
+                    new_variable_int new_variable_bool new_variable_string
+                    quote);
+our %EXPORT_TAGS = (all => \@EXPORT_OK);
 
 BEGIN {

perl/lib/BarnOwl/Editwin.pm

@@ -20 +20 @@
                     point_move replace_region get_region
                     save_excursion current_column point mark);
+our %EXPORT_TAGS = (all => \@EXPORT_OK);
 
 sub text_before_point {

perl/lib/BarnOwl/Hooks.pm

@@ -5 +5 @@
 
 use Carp;
+use List::Util qw(first);
 
 =head1 BarnOwl::Hooks
@@ -206 +207 @@
             BarnOwl::command($command . " " . join(" ", @_))
           };
-    }
+        if(defined(*{"${package}::EXPORT_OK"}{ARRAY})
+          && !contains(*{"${package}::EXPORT_OK"}{ARRAY}, $symbol)) {
+            push @{*{"${package}::EXPORT_OK"}{ARRAY}}, $symbol;
+        }
+    }
+}
+
+sub contains {
+    my $list = shift;
+    my $what = shift;
+    return defined(first {$_ eq $what} @$list);
 }