File Coverage

blib/lib/Number/UN.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	32	35	91.4

package Number::UN;
{
  $Number::UN::VERSION = '0.003';
}
# ABSTRACT: details about UN numbers

use strict;
use warnings;

use JSON 'decode_json';
use Path::Class 'file';

use Exporter 'import';
our @EXPORT_OK = qw(get_un);


sub get_un {
  my $fn = sprintf "%s/%04d.json", data_dir(), shift;
  return unless -e $fn;
  open my $fh, '<', $fn;
  my $text = <$fh>;
  my $hashref = decode_json $text or return;
  return %$hashref;
}

sub data_dir {
  file(__FILE__)->parent()->subdir('UN-data');
}

1;

__END__