Email-Barcode-Decode

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    license             => 'perl',
    dist_author         => 'Jozef Kutej <jkutej@cpan.org>',
    dist_version_from   => 'lib/Email/Barcode/Decode.pm',
    requires => {
        'Email::MIME'           => 0,
        'File::Temp'            => 0,
        'Path::Class'           => '0.33',
        'Class::Accessor::Fast' => 0,
        'Carp'                  => 0,
        'File::Find::Rule'      => 0,
        'Image::Magick'         => 0,
        'Barcode::ZBar'         => 0,
        'Capture::Tiny'         => 0,
        'File::Which'           => 0,
    },
    build_requires => {
        'Test::More'      => 0,
    },
    configure_requires  => {
        'Module::Build' => 0.38,
    },

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "Barcode::ZBar" : "0",
            "Capture::Tiny" : "0",
            "Carp" : "0",
            "Class::Accessor::Fast" : "0",
            "Email::MIME" : "0",
            "File::Find::Rule" : "0",
            "File::Temp" : "0",
            "File::Which" : "0",
            "Image::Magick" : "0",
            "Path::Class" : "0.33"
         }
      }
   },
   "provides" : {
      "Email::Barcode::Decode" : {
         "file" : "lib/Email/Barcode/Decode.pm",
         "version" : "0.04"
      }
   },

META.yml  view on Meta::CPAN

    version: '0.04'
requires:
  Barcode::ZBar: '0'
  Capture::Tiny: '0'
  Carp: '0'
  Class::Accessor::Fast: '0'
  Email::MIME: '0'
  File::Find::Rule: '0'
  File::Temp: '0'
  File::Which: '0'
  Image::Magick: '0'
  Path::Class: '0.33'
resources:
  license: http://dev.perl.org/licenses/
version: '0.04'
x_serialization_backend: 'CPAN::Meta::YAML version 0.016'

lib/Email/Barcode/Decode.pm  view on Meta::CPAN

package Email::Barcode::Decode;

use warnings;
use strict;

use Carp 'croak';
use Email::MIME;
use File::Temp qw(tempdir);
use File::Find::Rule;
use Path::Class qw(file);
use Image::Magick;
use Barcode::ZBar;
use Cwd 'getcwd';
use Capture::Tiny 'capture';
use File::Which qw(which);

our $VERSION = '0.04';

use base 'Class::Accessor::Fast';

__PACKAGE__->mk_accessors(qw{

lib/Email/Barcode/Decode.pm  view on Meta::CPAN

            );
        }
    }

    return @symbols;
}

sub _get_symbols_from_file {
    my ($scanner, $file, $enhance_code) = @_;

    my $magick = Image::Magick->new();
    my $error = $magick->Read($file);
    die $error if $error;

    my ($raw, $raw_format) = $enhance_code->($magick);

    my $image = Barcode::ZBar::Image->new();
    $image->set_format($raw_format);
    $image->set_size($magick->Get(qw(columns rows)));
    $image->set_data($raw);