File Coverage

blib/lib/Math/OEIS.pm

Criterion	Covered	Total	%
statement	11	23	47.8
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	17	35	48.5

# Copyright 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 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;
use 5.006;
use strict;
use warnings;
use File::Spec;

our $VERSION = 13;

sub local_directories {
  # my ($class) = @_;
  # {
  #   my $path = $ENV{'OEIS_PATH'};
  #   if (defined $path) {
  #     return split /:;/, $path;
  #   }
  # }
  {
    require File::HomeDir;
    my $dir = File::HomeDir->my_home;
    if (defined $dir) {
      return File::Spec->catdir($dir, 'OEIS');
    }
  }
  return ();
}

sub local_filename {
  my ($class, $filename) = @_;
  foreach my $dir ($class->local_directories) {
    my $fullname = File::Spec->catfile ($dir, $filename);
    if (-e $fullname) {
      return $fullname;
    }
  }
  return undef;
}

# sub anum_to_remote_url {
#   my ($anum) = @_;
#   return "http://oeis.org/$anum/";
# }


1;
__END__