Biblio-SICI

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "Test::Pod" : "1.41"
         }
      },
      "runtime" : {
         "requires" : {
            "Business::ISSN" : "0",
            "Moo" : "0",
            "Text::Undiacritic" : "0",
            "Text::Unidecode" : "0",
            "Try::Tiny" : "0",
            "perl" : "5.010001"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "repository" : {
         "type" : "git",
         "url" : "https://github.com/heikojansen/biblio-sici.git",
         "web" : "https://github.com/heikojansen/biblio-sici"

META.yml  view on Meta::CPAN

license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Biblio-SICI
requires:
  Business::ISSN: 0
  Moo: 0
  Text::Undiacritic: 0
  Text::Unidecode: 0
  Try::Tiny: 0
  perl: 5.010001
resources:
  repository: https://github.com/heikojansen/biblio-sici.git
version: 0.04

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "Biblio-SICI",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "Biblio::SICI",
  "PREREQ_PM" => {
    "Business::ISSN" => 0,
    "Moo" => 0,
    "Text::Undiacritic" => 0,
    "Text::Unidecode" => 0,
    "Try::Tiny" => 0
  },
  "TEST_REQUIRES" => {},
  "VERSION" => "0.04",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Business::ISSN" => 0,
  "Moo" => 0,
  "Text::Undiacritic" => 0,
  "Text::Unidecode" => 0,
  "Try::Tiny" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}

delete $WriteMakefileArgs{CONFIGURE_REQUIRES}

dist.ini  view on Meta::CPAN

repository.type = git

[NextRelease]
[PkgVersion]
[PodWeaver]
[PodSyntaxTests]

[Prereqs]
Moo = 0
Business::ISSN = 0
Try::Tiny = 0
perl = 5.010001
Text::Unidecode = 0
Text::Undiacritic = 0

dist.ini~  view on Meta::CPAN

repository.type = git

[NextRelease]
[PkgVersion]
[PodWeaver]
[PodSyntaxTests]

[Prereqs]
Moo = 0
Business::ISSN = 0
Try::Tiny = 0
perl = 5.010001
Text::Unidecode = 0
Text::Undiacritic = 0

lib/Biblio/SICI/Util.pm  view on Meta::CPAN

use warnings;
use 5.010001;

BEGIN {
	$Biblio::SICI::Util::TITLE_CODE = qr/[0-9A-Z&´*\\\{\}\(\)\[\],\@\$=!#%.+?";\/^\`~_|-]/;
}

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

use Try::Tiny;


sub titleCode_from_title {
	my $title = shift;

	die "Expected title string as parameter" unless defined($title) and $title;

	my $code = '';

	try {