The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package Blikistan::MagicEngine::Python;
use strict;
use warnings;
use base 'Blikistan::MagicEngine';
use Template;
use Socialtext::WikiObject::YAML;

sub print_blog {
    my $self = shift;
    my $r = $self->{rester};
    
    my $params = Socialtext::WikiObject::YAML->new(
        rester => $r, 
        page => $self->{config_page},
    )->as_hash;

    my $show_latest = delete $params->{show_latest_posts}
        || $self->{show_latest_posts};

    my @posts = $r->get_taggedpages($self->{post_tag});
    @posts = splice @posts, 0, $show_latest;

    $r->accept('text/html');
    $params->{posts} = [
        map { title => $_, content => $r->get_page($_) }, 
            @posts,
    ];

    my $template = Template->new({ INCLUDE_PATH => $FindBin::Bin });
    $template->process( $self->{template_name}, $params ) or
        die $template->error;
}

1;