Permalink
Browse files

Removed \t characters from help.

  • Loading branch information...
1 parent beeeccd commit 4989ac943655c3a1189bc74e48494ced2ee4ed2c @okxchg okxchg committed Jun 2, 2012
Showing with 7 additions and 9 deletions.
  1. +3 −4 lib/POE/Component/IRC/Plugin/BotCommand.pm
  2. +4 −5 t/04_plugins/13_botcommand/04_help.t
@@ -161,12 +161,11 @@ sub _get_help {
my $cmd = (split /\s+/, $args, 2)[0];
if (exists $self->{Commands}->{$cmd}) {
if (ref $self->{Commands}->{$cmd} eq 'HASH') {
- push @help, "$cmd ".join ' ', @{ $self->{Commands}->{$cmd}->{args} };
- push @help, "\t";
- push @help, split /\015?\012/, $self->{Commands}->{$cmd}->{info};
+ push @help, "Syntax: $cmd ".join ' ', @{ $self->{Commands}->{$cmd}->{args} };
+ push @help, split /\015?\012/, "Description: ".$self->{Commands}->{$cmd}->{info};
push @help, "Arguments:";
for my $arg (@{ $self->{Commands}->{$cmd}->{args} }) {
- push @help, "\t$arg: ".$self->{Commands}->{$cmd}->{$arg}
+ push @help, " $arg: ".$self->{Commands}->{$cmd}->{$arg}
if defined $self->{Commands}->{$cmd}->{$arg};
}
}
@@ -36,12 +36,11 @@ POE::Session->create(
);
my @bar_help = (
- "bar arg1 arg2",
- "\t",
- "Test command2",
+ "Syntax: bar arg1 arg2",
+ "Description: Test command2",
"Arguments:",
- "\targ1: What to bar",
- "\targ2: Where to bar"
+ " arg1: What to bar",
+ " arg2: Where to bar"
);
$poe_kernel->run();

0 comments on commit 4989ac9

Please sign in to comment.