hlmod: hoist out do_hl_lang sub

[public-inbox.git] / lib / PublicInbox / HlMod.pm

diff --git a/lib/PublicInbox/HlMod.pm b/lib/PublicInbox/HlMod.pm
index decfd714d7ba5e0551b125de94cf16d056642ca6..284e4b1896d46db23fe73613849604448f9c49ec 100644 (file)
--- a/lib/PublicInbox/HlMod.pm
+++ b/lib/PublicInbox/HlMod.pm
@@ -83,19 +83,24 @@ sub _path2lang ($$) {
 sub do_hl {
        my ($self, $str, $path) = @_;
        my $lang = _path2lang($self, $path) if defined $path;
+       do_hl_lang($self, $str, $lang);
+}
+
+sub do_hl_lang {
+       my ($self, $str, $lang) = @_;
+
        my $dir = $self->{-dir};
        my $langpath;
+
        if (defined $lang) {
                $langpath = $dir->getLangPath("$lang.lang") or return;
-               $langpath = undef unless -f $langpath;
+               $lang = undef unless -f $langpath
        }
-       unless (defined $langpath) {
+       unless (defined $lang) {
                $lang = _shebang2lang($self, $str) or return;
                $langpath = $dir->getLangPath("$lang.lang") or return;
-               $langpath = undef unless -f $langpath;
+               return unless -f $langpath
        }
-       return unless defined $langpath;
-
        my $gen = $self->{$langpath} ||= do {
                my $g = highlight::CodeGenerator::getInstance($highlight::HTML);
                $g->setFragmentCode(1); # generate html fragment