[perl5.git] / lib / fields.pm

package fields;

sub import {
    my $class = shift;
    my ($package) = caller;
    my $fields = \%{"$package\::FIELDS"};
    my $i = $fields->{__MAX__};
    foreach my $f (@_) {
	if (defined($fields->{$f})) {
	    require Carp;
	    Carp::croak("Field name $f already in use");
	}
	$fields->{$f} = ++$i;
    }
    $fields->{__MAX__} = $i;
}

1;
Commit	Line	Data
458fb581 MB	1	package fields;
	2
	3	sub import {
	4	my $class = shift;
	5	my ($package) = caller;
	6	my $fields = \%{"$package\::FIELDS"};
	7	my $i = $fields->{__MAX__};
	8	foreach my $f (@_) {
	9	if (defined($fields->{$f})) {
	10	require Carp;
	11	Carp::croak("Field name $f already in use");
	12	}
	13	$fields->{$f} = ++$i;
	14	}
	15	$fields->{__MAX__} = $i;
	16	}
	17
	18	1;