File Coverage

blib/lib/WebService/GData/YouTube/Query.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	3	3	100.0
total	11	20	55.0

package WebService::GData::YouTube::Query;
use WebService::GData::Query;
use base 'WebService::GData::Query';
our $VERSION  = 0.01_02;


WebService::GData::Query::disable([qw(updated_min updated_max published_min published_max)]);

WebService::GData::Query::install([qw(key uploader format time restriction orderby lr location_radius location inline lang fmt)]);

	sub safe_search {
		my ($this,$val)=@_;
		return $this->_set_query('safeSearch',$val);
	}

	sub location_plottable {
		my ($this,$location)=@_;
		return $this->_set_query('location',$location.'!');
	}

	#need to better handle the caption...
	sub caption {
		my ($this,$val)=@_;
		return $this->_set_query('caption',$val);
	}

"The earth is blue like an orange.";

__END__