Image-ColorDetector

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "develop" : {
         "requires" : {
            "Test::CPAN::Meta" : "0",
            "Test::MinimumVersion" : "0.10108",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "Image::Magick" : "6.87",
            "List::Util" : "1.35",
            "perl" : "5.008005"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.98"
         }
      }
   },

META.yml  view on Meta::CPAN

    - share
    - eg
    - examples
    - author
    - builder
provides:
  Image::ColorDetector:
    file: lib/Image/ColorDetector.pm
    version: 0.04
requires:
  Image::Magick: 6.87
  List::Util: 1.35
  perl: 5.008005
resources:
  bugtracker: https://github.com/libitte/Image-ColorDetector/issues
  homepage: https://github.com/libitte/Image-ColorDetector
  repository: git://github.com/libitte/Image-ColorDetector.git
version: 0.04

cpanfile  view on Meta::CPAN

requires 'perl', '5.008001';
requires 'List::Util', '1.35';
requires 'Image::Magick', '6.87';

on 'test' => sub {
    requires 'Test::More', '0.98';
};

lib/Image/ColorDetector.pm  view on Meta::CPAN

our $VERSION = "0.04";

use parent qw( Exporter );
our @EXPORT_OK = qw(
detect
);

use Carp ();

use Image::Magick;
use List::Util qw( max min );

sub detect {
	my ($file_path) = @_;

	Carp::croak(q{$file_path is required})
		unless (defined $file_path);

	my $hsvs_ref = _extract_hsv($file_path);
	my $color_names_ref = _allot_color_name($hsvs_ref);

lib/Image/ColorDetector.pm  view on Meta::CPAN

	}
	else {
		return;
	}
}

sub _extract_hsv {
	my ($img) = @_;
	$img or return;

	my $im = Image::Magick->new;
	open(IMAGE, $img);

	my $ret = $im->Read(file => \*IMAGE);

	if ($ret) {
		Carp::croak("$ret\ninvalid image source: $!");
	}

	close(IMAGE);