home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl_mlb.zip / fields.pm < prev    next >
Text File  |  1997-11-13  |  347b  |  19 lines
  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;
  19.