package WebService::Technorati::Author;
use strict;
use utf8;
use fields qw(firstname lastname username thumbnailpicture);
use WebService::Technorati::BaseTechnoratiObject;
use base 'WebService::Technorati::BaseTechnoratiObject';
BEGIN {
use vars qw ($VERSION $DEBUG);
$VERSION = 0.04;
$DEBUG = 0;
}
=head2 getFirstname
Usage : getFirstname();
Purpose :
Returns : a scalar string
Argument : none
Throws : none
Comments :
See Also : WebService::Technorati
=cut
=head2 setFirstname
Usage : setFirstname(string);
Purpose :
Returns : void
Argument : a scalar string
Throws : none
Comments :
See Also : WebService::Technorati
=cut
=head2 getLastname
Usage : getLastname();
Purpose :
Returns : a scalar string
Argument : none
Throws : none
Comments :
See Also : WebService::Technorati
=cut
=head2 setLastname
Usage : setLastname(string);
Purpose :
Returns : void
Argument : a scalar string
Throws : none
Comments :
See Also : WebService::Technorati
=cut
=head2 getUsername
Usage : getUsername();
Purpose :
Returns : a scalar string
Argument : none
Throws : none
Comments :
See Also : WebService::Technorati
=cut
=head2 setUsername
Usage : setUsername(string);
Purpose :
Returns : void
Argument : a scalar string
Throws : none
Comments :
See Also : WebService::Technorati
=cut
=head2 getThumbnailpicture
Usage : getThumbnailpicture();
Purpose :
Returns : a scalar string
Argument : none
Throws : none
Comments :
See Also : WebService::Technorati
=cut
=head2 setThumbnailpicture
Usage : setThumbnailpicture(string);
Purpose :
Returns : void
Argument : a scalar string
Throws : none
Comments :
See Also : WebService::Technorati
=cut
{
my %_attrs = (
firstname => undef,
lastname => undef,
username => undef,
thumbnailpicture => undef
);
sub _accessible {
if ($DEBUG) {
print __PACKAGE__ . ": checking for attr [$_[1]]\n";
}
return exists($_attrs{$_[1]});
}
}
sub new_from_node {
my $class = shift;
my $node = shift;
my $data = {
firstname => $node->findvalue('firstname')->string_value(),
lastname => $node->findvalue('lastname')->string_value(),
username => $node->findvalue('username')->string_value(),
thumbnailpicture => $node->findvalue('thumbnailpicture')->string_value()
};
my $self = bless ($data, ref ($class) || $class);
return $self;
}
1;