NAME

WebService::Kaolabo - This module call Kaolabo API (http://kaolabo.com/).

SYNOPSIS

  use WebService::Kaolabo;
  $kaolab = WebService::Kaolabo->new({
                                       target_file  => 'sample.jpg',
                                       apikey       => 'hogefuga'
                                    });

  unless ( $kaolab->scale( xpixels => 50, ypixels => 50, type => 'max') ) {
      warn "Failed scale $WebService::Kaolabo::errstr";
  }

  my $res = $kaolab->access();
  if ( $res->is_success ) {
      warn "Success ";
  }

  #$kaolab->unface_area();
  for my $k ( @{$kaolab->face_area()} ){
      $k->{area_number}
      $k->{min_x};
      $k->{min_y};
      $k->{max_x};
      $k->{max_y};
      $k->{point};
  }

  my $face_data = $kaolab->face_data;
  for my $f ( @{$face_data} ){
      $f->{face_x};
      $f->{face_y};
      $f->{height};
      $f->{width};
      $f->{right_eye_y};
      $f->{left_eye_y};
  }

  $kaolab->effect_face({type=>'box', color=>'#FF0000'});
  $kaolab->write('output.jpg');
  #my $imager = $kaolab->imager;
  #$imager->write(type=>'jpeg', file=>'output.jpg');

METHODS

new({target_file => '...', apikey => '....'})

The image file and api_key are passed. And Create new instance. The image should be JPEG.

access

Call The Kaolab API . The return value is a response object. See HTTP::Response.

scale

Call Imager scale method. See scale in Imager::Transformations.

effect_face

This method draws the line or box on the face.

The line is drawn on eyes.

  $kaolab->effect_face({type=>'line', color=>'#FF0000'});

The box is drawn on faces.

  $kaolab->effect_face({type=>'box', color=>'#FF0000'});

write('...')

Write an image to a file.

imager

The Imager instance is returned.

face_area

The image file is delimited to nine areas. Return face area.

unface_area

Return no face area.

ave_face_width

Return average width of all faces.

ave_face_height

Return average height of all faces.

errstr

Error message.

  warn "$WebService::Kaolabo::errstr";

AUTHOR

Akihito Takeda <takeda.akihito@gmail.com>

LICENCE AND COPYRIGHT

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