A custom Perl pragma to define member constants for use in Natural Docs objects.
Each parameter will be defined as a numeric constant which should be used as that variable’s index into the object arrayref. They will be assigned sequentially from zero, and take into account any members defined this way in parent classes. Note that you can not use multiple inheritance with this method.
Example
package MyPackage;
use NaturalDocs::DefineMembers 'VAR_A', 'VAR_B', 'VAR_C';
sub SetA #(A)
{
my ($self, $a) = @_;
$self->[VAR_A] = $a;
};Summary
| A custom Perl pragma to define member constants for use in Natural Docs objects. |
| |