return '0000001';
}
sub width {
- return undef;
+ return;
}
sub process_head { # (self,head,whole,specific)
my $self = shift;
my ($head,$incr,$tail) = $self->parse($max); # for incremental, you'd get ('',the_whole_barcode,'')
unless (defined $incr) {
warn "No incrementing part of barcode ($max) returned by parse.";
- return undef;
+ return;
}
my $x = length($incr); # number of digits
$incr =~ /^9+$/ and $x++; # if they're all 9's, we need an extra.
return $next_value;
}
sub next {
- my $self = shift or return undef;
+ my $self = shift or return;
(@_) and $self->{next} = shift;
return $self->{next};
}
sub previous {
- my $self = shift or return undef;
+ my $self = shift or return;
(@_) and $self->{previous} = shift;
return $self->{previous};
}
sub serial {
- my $self = shift or return undef;
+ my $self = shift or return;
(@_) and $self->{serial} = shift;
return $self->{serial};
}
$autoBarcodeType =~ s/^.*:://; # in case we get C4::Barcodes::incremental, we just want 'incremental'
unless ($autoBarcodeType) {
carp "No autoBarcode format found.";
- return undef;
+ return;
}
unless (defined $types->{$autoBarcodeType}) {
carp "The autoBarcode format '$autoBarcodeType' is unrecognized.";
- return undef;
+ return;
}
carp "autoBarcode format = $autoBarcodeType" if $debug;
my $self;
return $self;
}
carp "Failed new C4::Barcodes::$autoBarcodeType";
- return undef;
+ return;
}
sub new_object {