my $a = [];

foreach my $field ($self->field_list) {
	my $h = {};
	
	$h->{name} 		= $field->{name};
	
	push @{$a}, $h;
}

return $a;
}

1 POD Error

The following errors were encountered while parsing the POD:

Around line 116:

=pod directives shouldn't be over one line long! Ignoring all 3 lines of content