Removed some unused code.

trizen · Jan 13, 2014 · 8b66987 · 8b66987
1 parent 3f5e2f8
commit 8b66987
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 27 deletions.
diff --git 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
@@ -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
@@ -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.