The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use strict;
use Params::Validate ':all';
use List::Util qw/first/;
use HTML::Entities qw/encode_entities/;
use URI::Escape qw/uri_escape/;
template 'keyword_line' => sub {
my ($self, $row, $irc_nick) = @_;
show 'irc_message', $row, $irc_nick;
outs '(';
a { attr { 'href' => sprintf('/channels/%s', uri_escape( $row->channel->name)) }
$row->channel->name
};
outs ')';
br { };
};
template 'parts/version_info' => sub {
div {
class is 'VersionInfo';
span { 'mobirc - ' };
span {
class is 'version';
$App::Mobirc::VERSION;
}
}
};
1;