The quickest solution is to change line 98 from:
while (my ($name, $value) = each %{$function->{page}}) {
...to:
no strict 'refs';
while (my ($name, $value) = each %{$function->{page}}) {
(Not a great way but it works (I think))
while (my ($name, $value) = each %{$function->{page}}) {
...to:
no strict 'refs';
while (my ($name, $value) = each %{$function->{page}}) {
(Not a great way but it works (I think))