/usr/local/CPAN/mobirc/App/Mobirc/Web/Template/Parts.pm

• package App::Mobirc::Web::Template::Parts
• EOF

package App::Mobirc::Web::Template::Parts;
use strict;
use warnings;
use base qw(Template::Declare);
use Template::Declare::Tags;
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' => '/mobile/channel?channel=' . $row->channel->name_urlsafe_encoded }
            $row->channel->name
        };
    outs ')';
    br { };
};

template 'parts/version_info' => sub {
    div {
        class is 'VersionInfo';
        span { 'mobirc - ' };
        span {
            class is 'version';
            $App::Mobirc::VERSION;
        }
    }
};

1;