0cd178d950
Also: - fix warning in RevBank::Plugin->Tab when there are attrs but no :Tab - reconstruct quotes and escapes in prompt on retry
65 lines
1.3 KiB
Perl
65 lines
1.3 KiB
Perl
package RevBank::Plugin;
|
|
|
|
use v5.32;
|
|
use warnings;
|
|
use experimental 'signatures'; # stable since v5.36
|
|
use attributes;
|
|
|
|
require RevBank::Global;
|
|
|
|
sub new($class) {
|
|
return bless { }, $class;
|
|
}
|
|
|
|
sub command($self, $cart, $command, @) {
|
|
return RevBank::Global::NEXT();
|
|
}
|
|
|
|
sub Tab($self, $method) {
|
|
my %completions;
|
|
|
|
my $attr = attributes::get(
|
|
ref $method ? $method : $self->can($method)
|
|
) or return;
|
|
|
|
my ($tab) = $attr =~ /Tab \( (.*?) \)/x or return;
|
|
for my $keyword (split /\s*,\s*/, $tab) {
|
|
if ($keyword =~ /^&(.*)/) {
|
|
my $method = $1;
|
|
@completions{ $self->$method } = ();
|
|
} else {
|
|
$completions{ $keyword }++;
|
|
}
|
|
}
|
|
|
|
if (delete $completions{USERS}) {
|
|
for my $name (RevBank::Users::names()) {
|
|
next if RevBank::Users::is_hidden($name);
|
|
|
|
$completions{ $name }++;
|
|
$completions{ $1 }++ if $name =~ /^\*(.*)/;
|
|
}
|
|
}
|
|
|
|
return keys %completions;
|
|
}
|
|
|
|
sub AllChars($self, $method) {
|
|
my $attr = attributes::get(
|
|
ref $method ? $method : $self->can($method)
|
|
) or return;
|
|
|
|
return !!($attr =~ /AllChars/);
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
RevBank::Plugin - Base class for RevBank plugins
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Documentation on writing plugins is at L<RevBank::Plugins>.
|