use warnings; use strict; package BarnOwl::Help; use BarnOwl::Parse qw(tokenize); use BarnOwl::Editwin qw(text_before_point text_after_point); sub show_help { my $cmd = shift; my $words = tokenize(text_before_point() . text_after_point()); BarnOwl::help($words->[0]) if @$words; } 1;