Help for this page

Select Code to Download

Select or download this

    for my $field ( @$self{@{$_{FIELDS}}} ) {
        $field->set_related(AFTER => \@keys );
...
        my @pseudo_fields = map { @$_ } values %$structured_field;
        @$fieldmap{@pseudo_fields} = map { [ $fieldmap->{$_} || $_ ] }
+ @pseudo_fields;
    }

Select or download this

  use overload
   '%{}' => sub { my $self = shift; tie my(%h), $self; \%h };

  sub TIEHASH { shift }