… dado que hacerlo con Movable Type a estas alturas no parece posible.

Así que he buscado una herramienta web y me he encontrado http://tohtml.com que hace un trabajo fino y tiene la facilidad de uso de una tostadora.

Como Movable Type me permite insertar fragmentos de HTML en bruto voy a probar aquí con algunos  de código en Perl.

Fragmento original

Incluído en un bloque pre normal y corriente.

package TPC;
use Moose;
use Moose::Util::TypeConstraints;
use namespace::autoclean;
use utf8;

# extensions and roles 

# external modules
use TPC::Termino;

# attributes
has 'nombre'    =>  (
    documentation   =>  q(Nombre descriptivo),
    is              =>  'ro',
    isa             =>  'Str',
    lazy_build      =>  1,
);
has 'resultado' =>  (
    documentation   =>  q(Resultado final de la lista de términos),
    is              =>  'ro',   
    isa             =>  'Num',
    lazy_build      =>  1,
);
has 'terminos'  =>  (
    documentation   =>  q(Lista de términos para obtener el resultado),
    traits          =>  [ 'Array' ],
    is              =>  'ro',
    isa             =>  'ArrayRef[TPC::Termino]',
    default     =>  sub { []; },
);package TPC;
use Moose;
use Moose::Util::TypeConstraints;
use namespace::autoclean;
use utf8;

# extensions and roles 

# external modules
use TPC::Termino;

# attributes
has 'nombre'    =>  (
    documentation   =>  q(Nombre descriptivo),
    is              =>  'ro',
    isa             =>  'Str',
    lazy_build      =>  1,
);
has 'resultado' =>  (
    documentation   =>  q(Resultado final de la lista de términos),
    is              =>  'ro',   
    isa             =>  'Num',
    lazy_build      =>  1,
);
has 'terminos'  =>  (
    documentation   =>  q(Lista de términos para obtener el resultado),
    traits          =>  [ 'Array' ],
    is              =>  'ro',
    isa             =>  'ArrayRef[TPC::Termino]',
    default     =>  sub { []; },
);
    
# variables
our $VERSION    =   '0.1';

# public methods

# private methods

no Moose;
__PACKAGE__->meta->make_immutable;

1;
    
# variables
our $VERSION    =   '0.1';

# public methods

# private methods

no Moose;
__PACKAGE__->meta->make_immutable;

1;

Fragmento resaltado

Utilizando el estilo white que debería cambiar el fondo. Supongo que el tema que empleo con Movable Type está anulando los valores indicados en el siguiente bloque.

package TPC;
use Moose;
use Moose::Util::TypeConstraints;
use namespace::autoclean;
use utf8;

# extensions and roles 

# external modules
use TPC::Termino;

# attributes
has 'nombre'    =>  (
    documentation   =>  q(Nombre descriptivo),
    is              =>  'ro',
    isa             =>  'Str',
    lazy_build      =>  1,
);
has 'resultado' =>  (
    documentation   =>  q(Resultado final de la lista de términos),
    is              =>  'ro',   
    isa             =>  'Num',
    lazy_build      =>  1,
);
has 'terminos'  =>  (
    documentation   =>  q(Lista de términos para obtener el resultado),
    traits          =>  [ 'Array' ],
    is              =>  'ro',
    isa             =>  'ArrayRef[TPC::Termino]',
    default     =>  sub { []; },
);
    
# variables
our $VERSION    =   '0.1';

# public methods

# private methods

no Moose;
__PACKAGE__->meta->make_immutable;

1;

Aplicando ahora otro estilo como el negro, que es el más parecido al que empleo en el editor, aunque con los mismo resultados fallidos que el anterior.

package TPC;
use Moose;
use Moose::Util::TypeConstraints;
use namespace::autoclean;
use utf8;

# extensions and roles 

# external modules
use TPC::Termino;

# attributes
has 'nombre'    =>  (
    documentation   =>  q(Nombre descriptivo),
    is              =>  'ro',
    isa             =>  'Str',
    lazy_build      =>  1,
);
has 'resultado' =>  (
    documentation   =>  q(Resultado final de la lista de términos),
    is              =>  'ro',   
    isa             =>  'Num',
    lazy_build      =>  1,
);
has 'terminos'  =>  (
    documentation   =>  q(Lista de términos para obtener el resultado),
    traits          =>  [ 'Array' ],
    is              =>  'ro',
    isa             =>  'ArrayRef[TPC::Termino]',
    default     =>  sub { []; },
);
    
# variables
our $VERSION    =   '0.1';

# public methods

# private methods

no Moose;
__PACKAGE__->meta->make_immutable;

1;

Menuda pereza ponerse ahora a retocar la hoja de estilo del blog … :-(