diff --git a/WWW-YoutubeViewer/bin/gtk-youtube-viewer b/WWW-YoutubeViewer/bin/gtk-youtube-viewer index a7f0d070..23fdab11 100755 --- a/WWW-YoutubeViewer/bin/gtk-youtube-viewer +++ b/WWW-YoutubeViewer/bin/gtk-youtube-viewer @@ -442,8 +442,6 @@ require WWW::YoutubeViewer; my $yv_obj = WWW::YoutubeViewer->new( escape_utf8 => 1, key => $key, - app_name => $appname, - app_version => $version, config_dir => $config_dir, authentication_file => $authentication_file, ); diff --git a/WWW-YoutubeViewer/bin/youtube-viewer b/WWW-YoutubeViewer/bin/youtube-viewer index e349465a..90d3cf85 100755 --- a/WWW-YoutubeViewer/bin/youtube-viewer +++ b/WWW-YoutubeViewer/bin/youtube-viewer @@ -413,8 +413,6 @@ if (not defined $CONFIG{gcap}) { require WWW::YoutubeViewer; my $yv_obj = WWW::YoutubeViewer->new( key => $key, - app_name => $appname, - app_version => $version, config_dir => $config_dir, escape_utf8 => 1, authentication_file => $authentication_file, diff --git a/WWW-YoutubeViewer/lib/WWW/YoutubeViewer.pm b/WWW-YoutubeViewer/lib/WWW/YoutubeViewer.pm index 490c4bf5..745cce3f 100644 --- a/WWW-YoutubeViewer/lib/WWW/YoutubeViewer.pm +++ b/WWW-YoutubeViewer/lib/WWW/YoutubeViewer.pm @@ -67,8 +67,6 @@ my %valid_options = ( lwp_timeout => {valid => [qr/^\d+$/], default => 30}, key => {valid => [qr/^.{5}/], default => undef}, author => {valid => [qr{^[\-\w.]{2,64}\z}], default => undef}, - app_version => {valid => [qr/^v?\d/], default => $VERSION}, - app_name => {valid => [qr/^./], default => 'Youtube Viewer'}, config_dir => {valid => [qr/^./], default => q{.}}, authentication_file => {valid => [qr/^./], default => undef}, @@ -143,11 +141,6 @@ sub new { } } - $self->{start_index} = - delete($opts{start_index}) - || $self->get_start_index() - || 1; - $self->load_authentication_tokens(); foreach my $invalid_key (keys %opts) { @@ -1721,22 +1714,6 @@ Returns a list of videos from playlistID. Returns the latest videos uploaded by a username. -=head2 set_app_name($appname) - -Set the application name. - -=head2 get_app_name() - -Returns the application name. - -=head2 set_app_version($version) - -Set the application version. - -=head2 get_app_version() - -Returns the application version. - =head2 get_v() Returns the current version of GData implementation.