Changeset 2be605a for perl/lib/BarnOwl

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/BarnOwl

Files:

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

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);
 }