The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
? my $message = shift;
?= include('parts/irc_message', $message);
<? if (my $channel = $message->channel) { ?>
    (
        <a href="/mobile/channel?channel=<?= $channel->name_urlsafe_encoded ?>&server=<?= $channel->server->id ?>">
            <?= $channel->fullname ?>
        </a>
    )
<? } ?>
<br />