my @keys = qw/data op_info get set len clear free/;
push @keys, 'copy' if MGf_COPY;
push @keys, 'dup' if MGf_DUP;
push @keys, 'local' if MGf_LOCAL;
push @keys, qw/fetch store exists delete copy_key/ if VMG_UVAR;
my @keys = qw/data op_info get set len clear free/;
push @keys, 'copy' if MGf_COPY;
push @keys, 'dup' if MGf_DUP;
push @keys, 'local' if MGf_LOCAL;
push @keys, qw/fetch store exists delete copy_key/ if VMG_UVAR;
=head2 C<VMG_UVAR>
When this constant is true, you can use the C<fetch,store,exists,delete> callbacks on hashes.
=head2 C<VMG_UVAR>
When this constant is true, you can use the C<fetch,store,exists,delete> callbacks on hashes.
L<Carp> (standard since perl 5), L<XSLoader> (standard since perl 5.006).
Copy tests need L<Tie::Array> (standard since perl 5.005) and L<Tie::Hash> (since 5.002).
L<Carp> (standard since perl 5), L<XSLoader> (standard since perl 5.006).
Copy tests need L<Tie::Array> (standard since perl 5.005) and L<Tie::Hash> (since 5.002).