如何在Perl的Term :: Shell中完成选项卡的完成？

comp_CMD() – 这是由Term :: Shell提供的API,用于实现选项卡完成.
这对我没有帮助.有谁知道如何使这项工作？

示例代码：

#!/usr/bin/env perl
package Sample;
use base qw(Term::Shell);

sub prompt_str { "Sample&;" };

sub comp_show
{
    my $o = shift;
    my $word = shift;
    $o->completions($word,[qw(all work and no play is no fun at)]);
}

sub run_show
{
        print "run shown";
}

package main;
Sample->new->cmdloop;

这是该程序的一个运行：

Sample>show[TAB]

上面的命令没有给出预期的输出..它只给了我一个标签.