diff options
Diffstat (limited to 'lib/WWW/FairViewer.pm')
| -rw-r--r-- | lib/WWW/FairViewer.pm | 48 |
1 files changed, 23 insertions, 25 deletions
diff --git a/lib/WWW/FairViewer.pm b/lib/WWW/FairViewer.pm index 4e3bed8..5657c4c 100644 --- a/lib/WWW/FairViewer.pm +++ b/lib/WWW/FairViewer.pm @@ -46,34 +46,33 @@ our $VERSION = '1.0.4'; my %valid_options = ( # Main options - v => {valid => q[], default => 3}, - page => {valid => qr/^(?!0+\z)\d+\z/, default => 1}, - http_proxy => {valid => qr/./, default => undef}, - hl => {valid => qr/^\w+(?:[\-_]\w+)?\z/, default => undef}, - maxResults => {valid => [1 .. 50], default => 10}, - topicId => {valid => qr/./, default => undef}, - order => {valid => [qw(relevance date rating viewCount title videoCount)], default => undef}, - publishedAfter => {valid => qr/^\d+/, default => undef}, - publishedBefore => {valid => qr/^\d+/, default => undef}, - channelId => {valid => qr/^[-\w]{2,}\z/, default => undef}, - channelType => {valid => [qw(any show)], default => undef}, + v => {valid => q[], default => 3}, + page => {valid => qr/^(?!0+\z)\d+\z/, default => 1}, + http_proxy => {valid => qr/./, default => undef}, + hl => {valid => qr/^\w+(?:[\-_]\w+)?\z/, default => undef}, + maxResults => {valid => [1 .. 50], default => 10}, + order => {valid => [qw(relevance rating upload_date view_count)], default => undef}, + date => {valid => [qw(hour today week month year)], default => undef}, + + channelId => {valid => qr/^[-\w]{2,}\z/, default => undef}, + channelType => {valid => [qw(any show)], default => undef}, # Video only options - videoCaption => {valid => [qw(any closedCaption none)], default => undef}, - videoDefinition => {valid => [qw(any high standard)], default => undef}, - videoCategoryId => {valid => qr/^\d+\z/, default => undef}, - videoDimension => {valid => [qw(any 2d 3d)], default => undef}, - videoDuration => {valid => [qw(any short medium long)], default => undef}, - videoEmbeddable => {valid => [qw(any true)], default => undef}, - videoLicense => {valid => [qw(any creativeCommon youtube)], default => undef}, - videoSyndicated => {valid => [qw(any true)], default => undef}, - eventType => {valid => [qw(completed live upcoming)], default => undef}, - chart => {valid => [qw(mostPopular)], default => 'mostPopular'}, - - regionCode => {valid => qr/^[A-Z]{2}\z/i, default => undef}, + videoCaption => {valid => [qw(1 true)], default => undef}, + videoDefinition => {valid => [qw(high standard)], default => undef}, + videoCategoryId => {valid => qr/^\d+\z/, default => undef}, + videoDimension => {valid => [qw(2d 3d)], default => undef}, + videoDuration => {valid => [qw(short long)], default => undef}, + videoEmbeddable => {valid => [qw(true)], default => undef}, + videoLicense => {valid => [qw(creative_commons)], default => undef}, + videoSyndicated => {valid => [qw(true)], default => undef}, + eventType => {valid => [qw(completed live upcoming)], default => undef}, + chart => {valid => [qw(mostPopular)], default => 'mostPopular'}, + + region => {valid => qr/^[A-Z]{2}\z/i, default => undef}, relevanceLanguage => {valid => qr/^[a-z]+(?:\-\w+)?\z/i, default => undef}, safeSearch => {valid => [qw(none moderate strict)], default => undef}, - videoType => {valid => [qw(any episode movie)], default => undef}, + videoType => {valid => [qw(episode movie)], default => undef}, comments_order => {valid => [qw(top new)], default => 'top'}, subscriptions_order => {valid => [qw(alphabetical relevance unread)], default => undef}, @@ -669,7 +668,6 @@ sub default_arguments { #part => 'snippet', #prettyPrint => 'false', #maxResults => $self->get_maxResults, - #regionCode => $self->get_regionCode, %args, ); |