? my ($app, $msg) = @_; ? my $classes = join " ", ( ? grep {$msg->{$_}} qw/highlight self consecutive monospaced avatar/, ? );
  • {avatar} ? " avatar=$msg->{avatar}" : "" ?>>
    {timestamp} ?>
    {source} ? " title=$msg->{source}" : "" ?>> {nick} ?>
    {html} ?>