#!/usr/bin/perl -w
use strict;
use warnings;
use Pod::POM::View::Restructured;
{
no warnings 'redefine';
*Pod::POM::View::Restructured::view_for = sub {
my ($self, $node) = @_;
my $fmt = $node->format();
#print STDERR "got for: fmt='$fmt', text='" . $node->text() . "'\n";
if ($fmt eq 'pod2rst') {
my $text = $node->text();
if ($text =~ /\A\s*next-code-block\s*:\s*(\S+)/) {
my $lang = $1;
$self->{next_code_block} = $lang;
return '';
}
return "\n" . $text . "\n";
}
return $self->SUPER::view_for($node);
};
}
my $title = shift || die "Usage: $0 title < in > out";
my $conv = Pod::POM::View::Restructured->new;
my $output = $conv->convert_file(\*STDIN, "**$title**", \*STDOUT);