… | |
… | |
2993 | my ($self, $text, %arg) = @_; |
2993 | my ($self, $text, %arg) = @_; |
2994 | |
2994 | |
2995 | $text =~ s/^\s+//; |
2995 | $text =~ s/^\s+//; |
2996 | $text =~ s/\s+$//; |
2996 | $text =~ s/\s+$//; |
2997 | |
2997 | |
|
|
2998 | return unless $text; |
|
|
2999 | |
2998 | my $timeout = time + ((delete $arg{timeout}) || 60); |
3000 | my $timeout = time + ((delete $arg{timeout}) || 60); |
2999 | |
3001 | |
3000 | my $group = exists $arg{group} ? $arg{group} : ++$self->{id}; |
3002 | my $group = exists $arg{group} ? $arg{group} : ++$self->{id}; |
3001 | |
3003 | |
3002 | if (my $item = $self->{item}{$group}) { |
3004 | if (my $item = $self->{item}{$group}) { |