File Coverage

blib/lib/WebService/GData/Node/AbstractEntity.pm

Criterion	Covered	Total	%
statement	41	51	80.3
branch	21	28	75.0
condition	4	6	66.6
subroutine	8	9	88.8
pod	0	1	0.0
total	74	95	77.8

package WebService::GData::Node::AbstractEntity;
use WebService::GData 'private';
use base 'WebService::GData';

our $VERSION = 0.01_03;

sub __init {}


sub swap {
    my($this,$remove,$new)=@_;
    my $nodename = ref($remove);
    $this->_entity->swap($remove,$new);
    $nodename=~s/.*:://;
    $this->{"_\l$nodename"}=$new;
}

sub _entity {
    my $this = shift;
    if(@_==1){
        $this->{_entity}=shift;
    }
    return $this->{_entity};

}

sub __set {
    my ($this,$func,$val)= @_;
    my $public =$func;

    #all the wrapper methods store the original Node objects
    #by prefixing the tag name with _
    $func='_'.$func;
    if($this->{$func}){
       if(ref($this->{$func})){
           $this->{$func}->{text}=$val if(!ref $val);
           return $this->{$func};
       }
       else {
           $this->{$func}=$val;
       }
       return;
    }
    my $code = $this->_entity->can($public);
    if($code){
        $code->($this,$val);
        return;
    }
    $this->_entity->__set($public,$val);


}

sub __get {
    my ($this,$func)= @_;


   return $this->_entity->$func() if($this->_entity->can($func));

    my $public =$func;
    $func='_'.$func;

    if($this->{$func} && ref($this->{$func})=~m/WebService/){

    	return $this->{$func} if ref($this->{$func})=~m/array|collection/i;

        if(@{$this->{$func}->attributes}==0){

        	_install_get_set_text(ref $this,$public,$func);
             return $this->{$func}->{text} ? $this->{$func}->{text}:$this->{$func};
        }

        return $this->{$func}->{text}||$this->{$func};

    }


    return $this->_entity->$public() if($this->_entity->__get($public));
    return $this->_entity->{$public} if($this->_entity->{$public});

}


private _install_get_set_text=>sub {
  my ($package,$called_func,$stored_attr)=@_;

 {
        no strict 'refs';
        *{$package.'::'.$called_func}= sub {
            my ($this,$text) = @_;
            local *__ANON__=$called_func;
            if($text){
                return $this->{ $stored_attr }->text($text);
            }
            $this->{ $stored_attr }->text||$this->{ $stored_attr };
        };
   }

};

"The earth is blue like an orange.";

__END__