File Coverage

blib/lib/WebService/GData/YouTube/Feed/UserProfile.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	2	4	50.0
condition	1	2	50.0
subroutine	15	15	100.0
pod	4	4	100.0
total	65	69	94.2

package WebService::GData::YouTube::Feed::UserProfile;

use WebService::GData;
use base 'WebService::GData::Feed::Entry';
use WebService::GData::Constants qw(:all);
use WebService::GData::YouTube::Constants qw(:all);

use WebService::GData::YouTube::YT::Statistics ();
use WebService::GData::Node::GD::FeedLink ();
use WebService::GData::Collection;

our $VERSION = 0.01_01;

sub __init {
    my ( $this, $feed, $req ) = @_;

    if ( ref($feed) eq 'HASH' ) {
        $this->SUPER::__init( $feed, $req );
    }
    else {
        $this->SUPER::__init( {}, $feed );#$feed ==$req here
    }

    $this->{_statistics}= new WebService::GData::YouTube::YT::Statistics($this->{_feed}->{'yt$statistics'});
    $this->{_feed_links}= new WebService::GData::Collection($this->{_feed}->{'gd$feedLink'}||[],undef,sub {
            my $elm=shift;
            $elm= WebService::GData::Node::GD::FeedLink->new($elm) if ref $elm ne 'WebService::GData::Node::GD::FeedLink';
            return $elm;
        });
    $this->_entity->child($this->{_statistics})
                  ->child($this->{_feed_links});
}

sub about_me {
    my $this = shift;
    return $this->{_feed}->{'yt$aboutMe'}->{'$t'};
}
sub first_name {
    my $this = shift;
    return $this->{_feed}->{'yt$firstName'}->{'$t'};
}
sub last_name {
    my $this = shift;
    return $this->{_feed}->{'yt$lastName'}->{'$t'};
}
sub thumbnail {
    my $this = shift;
    return $this->{_feed}->{'media$thumbnail'}->{'url'};
}
no strict 'refs';
foreach my $node (qw(age username books gender company hobbies hometown location movies
                     music relationship occupation school)) {

    *{ __PACKAGE__ . '::' . $node . '' } = sub {
        my $this = shift;
         return $this->{_feed}->{'yt$'.$node}->{'$t'};
      }
}




"The earth is blue like an orange.";

__END__