File Coverage

blib/lib/WebService/Face/Response/Tag.pm

Criterion	Covered	Total	%
statement	9	65	13.8
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	27	11.1
pod	24	24	100.0
total	36	121	29.7

package WebService::Face::Response::Tag;

use 5.006;
use strict;
use warnings;

=head1 NAME

WebService::Face::Client::Tag

=head1 VERSION

Version 0.04

=cut

our $VERSION = '0.04';

=head1 SYNOPSIS

WebService::Face::Response::Tag wraps the data returned by the server for tags

It provides a simple OO interface to access the data

=head1 SUBROUTINES/METHODS

=head2 new ( \%params )

The constructor for the ace::Client::Response::Tag class

=cut

sub new {
    my $class  = shift;
    my $params = shift;

    my $self = {};

    for my $key ( keys %$params ) {
        $self->{$key} = $params->{$key};
    }

    return bless( $self, $class );
}

=head2 width ()

Getter for the 'width' attribute

=cut

sub width {
    my $self = shift;

    return $self->{'width'};
}

=head2 height ()

Getter for the 'height' attribute

=cut

sub height {
    my $self = shift;

    return $self->{'height'};
}

=head2 center ()

Getter for the 'center' attribute

=cut

sub center {
    my $self = shift;

    return $self->{'center'};
}

=head2 eye_left ()

Getter for the 'eye_left' attribute

=cut

sub eye_left {
    my $self = shift;

    return $self->{'eye_left'};
}

=head2 eye_right ()

Getter for the 'eye_right' attribute

=cut

sub eye_right {
    my $self = shift;

    return $self->{'eye_right'};
}

=head2 mouth_left ()

Getter for the 'mouth_left' attribute

=cut

sub mouth_left {
    my $self = shift;

    return $self->{'mouth_left'};
}

=head2 mouth_center ()

Getter for the 'mouth_center' attribute

=cut

sub mouth_center {
    my $self = shift;

    return $self->{'mouth_center'};
}

=head2 mouth_right ()

Getter for the 'mouth_right' attribute

=cut

sub mouth_right {
    my $self = shift;

    return $self->{'mouth_right'};
}

=head2 nose ()

Getter for the 'nose' attribute

=cut

sub nose {
    my $self = shift;

    return $self->{'nose'};
}

=head2 yaw ()

Getter for the 'yaw' attribute

=cut

sub yaw {
    my $self = shift;

    return $self->{'yaw'};
}

=head2 pitch ()

Getter for the 'pitch' attribute

=cut

sub pitch {
    my $self = shift;

    return $self->{'pitch'};
}

=head2 roll ()

Getter for the 'roll' attribute

=cut

sub roll {
    my $self = shift;

    return $self->{'roll'};
}

=head2 attributes ()

Getter for the 'attributes' data member (yep I mean attribute ;-)

=cut

sub attributes {
    my $self = shift;

    return $self->{'attributes'};
}

=head2 gender ()

Getter for the 'gender' attribute

=cut

sub gender {
    my $self = shift;

    return $self->{'gender'};
}

=head2 glasses ()

Getter for the 'glasses' attribute

=cut

sub glasses {
    my $self = shift;

    return $self->{'glasses'};
}

=head2 smiling ()

Getter for the 'smiling' attribute

=cut

sub smiling {
    my $self = shift;

    return $self->{'smiling'};
}

=head2 tid ()

Getter for the 'tid' attribute

=cut

sub tid {
    my $self = shift;

    return $self->{'tid'};
}

=head2 mood ()

Getter for the 'mood' attribute

=cut

sub mood {
    my $self = shift;

    return $self->{'mood'};
}

=head2 lips ()

Getter for the 'lips' attribute

=cut

sub lips {
    my $self = shift;

    return $self->{'lips'};
}

=head2 face ()

Getter for the 'face' attribute

=cut

sub face {
    my $self = shift;

    return $self->{'face'};
}

=head2 recognizable ()

Getter for the 'recognizable' attribute

=cut

sub recognizable {
    my $self = shift;

    return $self->{'recognizable'};
}

=head2 uids ()

Getter for the 'uids' attribute

=cut

sub uids {
    my $self = shift;

    return $self->{'uids'};
}

=head2 recognized ()

Return the uid of the recognized user
(undef if no user recognized)

=cut

sub recognized {
    my $self = shift;

    if ( $self->recognizable and @{ $self->uids } ) {
        return shift @{ $self->uids };
    }
    else {
        return;
    }
}

=head1 AUTHOR

Arnaud (Arhuman) ASSAD, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C< arhuman at gmail.com>, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc WebService::Face::Client

You can also look for information at:

=over 4

=item * Github repository

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=back

More information about Face.com service :

L

=head1 ACKNOWLEDGEMENTS

Thanks to Face.com for the service they provide.
Thanks to Jaguar Network for allowing me to publish my work.

=head1 LICENSE AND COPYRIGHT

Copyright 2012 Arnaud (Arhuman) ASSAD.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=cut

1;