implements _build_field_labels => as {
my $self = shift;
my %labels;
- for my $field ( @{$self->field_order}){
+ for my $field ( @{$self->computed_field_order}){
$labels{$field} = join(' ', map{ ucfirst } split('_', $field));
}
return \%labels;
implements _build_computed_field_order => as {
my ($self) = @_;
- confess("current_collection lacks a value for 'member_type' attribute")
- unless $self->current_collection->has_member_type;
my %excluded = map { $_ => undef } @{ $self->excluded_fields };
#treat _$field_name as private and exclude fields with no reader
my @names = grep { $_ !~ /^_/ && !exists($excluded{$_})} map { $_->name }