view release on metacpan or  search on metacpan

t/01_detect.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Image::ObjectDetect;

my $cascade;
if (exists $ENV{CASCADE_NAME}) {
    $cascade = $ENV{CASCADE_NAME};
} else {
    $cascade = '/usr/local/share/opencv/haarcascades/haarcascade_frontalface_alt2.xml';
    unless (-f $cascade) {
        Test::More->import(skip_all => "no cascade file found, skipped.");
        exit;
    }
}
plan tests => 7;

my @faces = detect_objects($cascade, 't/test.jpg');
is(scalar @faces, 5); # 5 persons

my $face = shift @faces;
ok(exists $face->{x});
ok(exists $face->{y});
ok(exists $face->{width});
ok(exists $face->{height});

# OO interface
my $detector = Image::ObjectDetect->new($cascade);
isa_ok($detector, 'Image::ObjectDetect');
ok($detector->detect('t/test.jpg'));