view release on metacpan or  search on metacpan

doc/slides/mkpres.pl  view on Meta::CPAN

          metadata => $pres->{metadata},
        };
        save_file($template{slide}, $slide->{filename}, $data);
    }
}

sub outdent {
    local($_) = @_;
    s/\s+$//s;
    s/^\s*?\n//s;
    my($prefix, @prefs) = m/^(\s*)/mg;
    foreach (@prefs) {
        $prefix = $_ if length($_) < length($prefix);
    }
    s/^$prefix//mg;
    return $_;
}


sub syntax_highlight {
    my($code, $language) = @_;