Changeset eb6cedc for perl/lib/BarnOwl

Timestamp:

Jul 17, 2009, 11:52:30 PM (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:

96f7b07

Parents:

b4ef908

git-author:

Nelson Elhage <nelhage@mit.edu> (07/17/09 23:31:14)

git-committer:

Nelson Elhage <nelhage@mit.edu> (07/17/09 23:52:30)

Message:

Push commands into BarnOwl:: instead of AUTOLOAD'ing them

File:

• perl/lib/BarnOwl/Hooks.pm (modified) (2 diffs)

perl/lib/BarnOwl/Hooks.pm

@@ -3 +3 @@
 
 package BarnOwl::Hooks;
+
+use Carp;
 
 =head1 BarnOwl::Hooks
@@ -180 +182 @@
 }
 
+sub _new_command {
+    my $command = shift;
+    (my $symbol = $command) =~ s/-/_/g;
+    my $package = "BarnOwl";
+
+    if($symbol =~ m{^edit:(.+)$}) {
+        $symbol = $1;
+        $package = "BarnOwl::Editwin";
+    } else {
+        $symbol =~ s/:/_/;
+    }
+    {
+        no strict 'refs';
+        if(defined(*{"${package}::${symbol}"}{CODE})) {
+            return;
+        }
+        *{"${package}::${symbol}"} = sub {
+            if(@_ == 1 && $_[0] =~ m{\s}) {
+                carp "DEPRECATED: ${package}::${symbol}: Tokenizing argument on ' '.\n"
+                . "In future versions, the argument list will be passed to\n"
+                . "'$command' directly. Tokenize yourself, or use BarnOwl::command()\n"
+            }
+            BarnOwl::command($command . " " . join(" ", @_))
+          };
+    }
+}
 
 1;