push @{ $this->{local_vars} }, sub { \@_ }->(my (
   $open_tag, $tagprint, $cur_class,
   $cur_id, $defines_class, $defines_id,
));
...
if ($open_tag eq 'div' and $cur_class eq 'pager') {...

##</code><code>##

my @local_vars;
push @{ $this->{local_vars} }, \@local_vars;
my (
   $open_tag, $tagprint, $cur_class,
   $cur_id, $defines_class, $defines_id,
) = \@local_vars[0..5];
...
if ($$open_tag eq 'div' and $$cur_class eq 'pager') {...