File Coverage

blib/lib/Math/OEIS/Names.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	6	10	60.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	51	57	89.4

# Copyright 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Kevin Ryde

# This file is part of Math-OEIS.
#
# Math-OEIS is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 3, or (at your option) any later
# version.
#
# Math-OEIS is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with Math-OEIS.  If not, see .

package Math::OEIS::Names;
use 5.006;
use strict;
use warnings;
use Carp 'croak';

use Math::OEIS::SortedFile;
our @ISA = ('Math::OEIS::SortedFile');

# uncomment this to run the ### lines
# use Smart::Comments;

our $VERSION = 13;

use constant base_filename => 'names';

sub line_split {
  my ($self, $line) = @_;
  ### Names line_split(): $line
  $line =~ /^((A\d+)\s*)(.*)/
    or return;  # perhaps comment lines
  return (substr($line,0,length($2)),
          substr($line,length($1),length($3)));
}

use constant::defer _HAVE_ENCODE => sub {
  eval { require Encode; 1 } || 0;
};

sub anum_to_name {
  my ($self, $anum) = @_;
  ### Names anum_to_name(): $anum
  my $line = $self->anum_to_line($anum);
  if (! defined $line) { return undef; }

  my ($got_anum, $name) = $self->line_split($line);
  if ($got_anum ne $anum) { return undef; }

  if (_HAVE_ENCODE) {
    $name = Encode::decode('utf8', $name, Encode::FB_PERLQQ());
  }
  return $name;
}


# sub anum_to_name {
#   my ($class, $anum) = @_;
#   $anum =~ /^A[0-9]+$/ or die "Bad A-number: ", $anum;
#   return `zgrep -e ^$anum $ENV{HOME}/OEIS/names.gz`;
# }

1;
__END__