t/Register_018.pm

   1 package Register_018;
   2
   3 use strict;
   4
   5 sub render
   6 {
   7     my ($self, $context) = @_;
   8
   9     my $old_format = $context->active_format;
  10     my $format = $context->format_object->copy(
  11         $context, $old_format,
  12
  13         align => 'center', bold => 1,
  14     );
  15
  16     $context->active_format($format);
  17
  18     my $child_success = $self->SUPER::render($context);
  19
  20     $context->active_format($old_format);
  21
  22     return $child_success;
  23
  24 }
  25
  26 1;
  27 __END__