view release on metacpan or  search on metacpan

Bibcode.pm  view on Meta::CPAN

  my $vol = shift;

  # Second character is important so we need to get that before
  # cleaning
  my $second = substr($vol,1,1);


  # Clean the string
  $vol = _clean_string( $vol, 'R' );

  # empty is okay [need to guess later on]
  return (wantarray ? ('', '') : $vol) unless $vol;

  # Get standard classification codes
  my $classes = join( "", keys %CLASS);

  # Get adass codes and form a pattern match string
  my $adsmatch = join("|",keys %CLASS_ADS);

  # Either we are all numbers
  if ($vol =~ /^\d+$/) {