view release on metacpan or  search on metacpan

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

package Image::ObjectDetect;
use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT);

BEGIN {
    $VERSION = '0.12';
    if ($] > 5.006) {
        require XSLoader;
        XSLoader::load(__PACKAGE__, $VERSION);
    } else {
        require DynaLoader;
        @ISA = qw(DynaLoader);
        __PACKAGE__->bootstrap;
    }
    require Exporter;
    push @ISA, 'Exporter';
    @EXPORT = qw(detect_objects);
}

sub detect {
    my ($self, $file) = @_;
    my $ret = $self->xs_detect($file);
    wantarray ? @$ret : $ret;
}

sub detect_objects {
    __PACKAGE__->new($_[0])->detect($_[1]);
}

1;
__END__

=head1 NAME

Image::ObjectDetect - detects objects from picture(using opencv)

=head1 SYNOPSIS

  use Image::ObjectDetect;

  my $cascade = 'haarcascade_frontalface_alt2.xml';
  my $file = 'picture.jpg';
  my $detector = Image::ObjectDetect->new($cascade);
  @faces = $detector->detect($file);
  for my $face (@faces) {
      print $face->{x}, "\n";
      print $face->{y}, "\n";
      print $face->{width}, "\n";
      print $face->{height}, "\n";
  }
  # or just like this
  my @faces = detect_objects($cascade, $file);

=head1 DESCRIPTION

Image::ObjectDetect is a simple module to detect objects from picture using opencv.

It is available at: http://sourceforge.net/projects/opencvlibrary/

=head1 METHODS

=over 4

=item new($cascade)

Returns an instance of this module.

=item detect($file)

Detects objects from picture.

=back

=head1 FUNCTIONS

=over 4

=item detect_objects($cascade, $file)

Detects objects from picture.

=back

=head1 EXPORT

detect_objects

=head1 AUTHOR

Jiro Nishiguchi E<lt>jiro@cpan.orgE<gt>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 SEE ALSO

L<http://sourceforge.net/projects/opencvlibrary/>

=cut