Permalink
Browse files

Removed some unused code.

  • Loading branch information...
trizen committed Jan 13, 2014
1 parent 3f5e2f8 commit 8b6698720c326e04b2a6ae31c2aa2274a3fad348
@@ -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,
);
@@ -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,
@@ -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.

0 comments on commit 8b66987

Please sign in to comment.