diff options
| -rw-r--r-- | lib/Bot/Flowdock/IRC.pm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lib/Bot/Flowdock/IRC.pm b/lib/Bot/Flowdock/IRC.pm index 878e235..832fe24 100644 --- a/lib/Bot/Flowdock/IRC.pm +++ b/lib/Bot/Flowdock/IRC.pm @@ -6,6 +6,7 @@ use JSON; use List::MoreUtils 'any'; use Net::Flowdock 0.03; use Net::Flowdock::Stream; +use String::Truncate 'elide'; extends 'Bot::BasicBot'; @@ -224,17 +225,15 @@ sub _say_to_channel { if (defined($from)) { $body = $params{emoted} ? "* $from $body" : "<$from> $body"; - $self->say( - channel => ($self->channels)[0], - body => $body, - ); } else { - $self->say( - channel => ($self->channels)[0], - body => "-!- $body", - ); + $body = "-!- $body"; } + + $self->say( + channel => ($self->channels)[0], + body => elide($body, 350, { at_space => 1 }), + ); } sub _say_to_flowdock { |