Lines Matching defs:number
47 assigned number as well as other attributes to indicate if they only exist
87 loaded_maxnum => 0, # Highest allocated item number when loading
89 maxassigned => 0, # Current highest assigned item number
90 maxnum => 0, # Current highest allocated item number
91 contents => [], # Items, indexed by number
92 name2num => {}, # Name to number dictionary
135 my $num = $item->number();
141 croak "Disordered ordinals, number sequence restarted"
174 Renumber any item that doesn't have an assigned number yet.
183 $_->number($_->intnum()) if $_->number() =~ m|^\?|;
184 if ($max_assigned < $_->number()) {
185 $max_assigned = $_->number();
301 # - They MUST have the same number
306 # If there's just one item, just put it in the slot of its number
313 croak "Wrong number of items: ", scalar @items, "\n ",
329 # Check that all items we're trying to put back have the same number
444 the new input data, but will keep the same ordinal number and version.
469 my $number = @items ? $items[0]->number() : '?';
479 number => $number,
567 my $number =
568 $items[0]->number() =~ m|^\?| ? '?+' : $items[0]->number();
573 number => $number,
613 If the given version has a first number C<N> that's greater than 1, the
761 ordinal = number | "?" | "?+";
762 version = number, "_", number, "_", number, [ letter, [ letter ] ];
769 number = digit, { digit };
773 =item B<< source => FILENAME >>, B<< name => STRING >>, B<< number => NUMBER >>,
814 number => $a[1],
832 number => $opts{number},
853 =item B<< $item->number >> (read-write)
855 The positional number for this item.
859 handled by the caller. The caller may change this to an actual number.
863 The version number for this item. Please note that these version numbers
908 Internal positional number. If I<< $item->number >> is '?' or '?+', the
909 caller can use this to set a number for its purposes.
910 If I<< $item->number >> is a number, I<< $item->intnum >> should be the
926 sub number {
929 my $item = 'number';
952 $self->number(),
1026 Returns a filter that only lets through symbols with a version number
1042 Returns a filter that only lets through symbols with the ordinal number
1051 my $number = shift;
1053 croak "No number specified"
1054 unless $number && $number =~ /^\d+$/;
1056 return [ F_NUMBER, $number ];