Data-URIID

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "develop" : {
         "requires" : {
            "Test::Pod" : "1.41"
         }
      },
      "runtime" : {
         "recommends" : {
            "Barcode::ZBar" : "0.04",
            "GD::Barcode" : "1.15",
            "Image::Magick" : "0",
            "Imager::QRCode" : "0.033"
         },
         "requires" : {
            "Carp" : "1.35",
            "Data::Identifier" : "v0.11.0",
            "DateTime::Format::ISO8601" : "0.08",
            "Digest::base" : "1.16",
            "Encode" : "3.19",
            "I18N::LangTags" : "0.45",
            "I18N::LangTags::Detect" : "1.08",

META.yml  view on Meta::CPAN

    version: v0.17.0
  Data::URIID::Result:
    file: lib/Data/URIID/Result.pm
    version: v0.17.0
  Data::URIID::Service:
    file: lib/Data/URIID/Service.pm
    version: v0.17.0
recommends:
  Barcode::ZBar: '0.04'
  GD::Barcode: '1.15'
  Image::Magick: '0'
  Imager::QRCode: '0.033'
requires:
  Carp: '1.35'
  Data::Identifier: v0.11.0
  DateTime::Format::ISO8601: '0.08'
  Digest::base: '1.16'
  Encode: '3.19'
  I18N::LangTags: '0.45'
  I18N::LangTags::Detect: '1.08'
  JSON: '4.10'

cpanfile  view on Meta::CPAN

requires "I18N::LangTags::Detect" => "1.08";
requires "JSON" => "4.10";
requires "LWP::UserAgent" => "6.68";
requires "MIME::Base64" => "3.15";
requires "Math::BigInt" => "1.999816";
requires "URI" => "1.5";
requires "URI::Escape" => "3.31";
requires "perl" => "v5.16.0";
recommends "Barcode::ZBar" => "0.04";
recommends "GD::Barcode" => "1.15";
recommends "Image::Magick" => "0";
recommends "Imager::QRCode" => "0.033";

on 'test' => sub {
  requires "Test::Exception" => "0.30";
  requires "Test::More" => "1.3";
  requires "Test::Warn" => "0.30";
};

on 'configure' => sub {
  requires "ExtUtils::MakeMaker" => "0";

dist.ini  view on Meta::CPAN

I18N::LangTags::Detect = 1.08
LWP::UserAgent = 6.68
DateTime::Format::ISO8601 = 0.08
MIME::Base64 = 3.15
Digest::base = 1.16
Data::Identifier = v0.11

[Prereqs / RuntimeRecommends]
GD::Barcode = 1.15
Imager::QRCode = 0.033
Image::Magick = 0
Barcode::ZBar = 0.04

[Prereqs / TestRequires]
Test::More =  1.3
Test::Exception =  0.30
Test::Warn =  0.30

[MetaNoIndex]
directory = t

lib/Data/URIID/Barcode.pm  view on Meta::CPAN

    foreach my $key (qw(extractor type)) {
        $pass_opts{$key} = delete $opts{$key} // next;;
    }

    if (!defined($from) && defined($values)) {
        @res = map {{barcode => $_, quality => 0.001}}
               map {$pkg->new(%pass_opts, ref($_) ? (from => $_) : (data => sprintf($template // '%s', $_)))}
               @{$values};
               $done = 1;
    } elsif (!defined($from) && defined($filename)) {
        require Image::Magick;
        $from = Image::Magick->new();
        $from->Read($filename) && croak 'Cannot read file';
    }

    croak 'Stray options passed' if scalar keys %opts;

    unless ($done) {
        croak 'No from given' unless defined $from;

        if ($from->isa('Image::Magick')) {
            require Barcode::ZBar;

            my $raw = $from->ImageToBlob(magick => 'GRAY', depth => 8);
            my ($col, $rows) = $from->Get(qw(columns rows));
            my $scanner = Barcode::ZBar::ImageScanner->new();

            $from = Barcode::ZBar::Image->new();
            $from->set_format('Y800');
            $from->set_size($col, $rows);
            $from->set_data($raw);