Manual merge for DailyMotionGrabber.pm
authorRalf Ertzinger <ralf@skytale.net>
Tue, 30 Apr 2013 13:51:23 +0000 (15:51 +0200)
committerRalf Ertzinger <ralf@skytale.net>
Tue, 30 Apr 2013 13:51:23 +0000 (15:51 +0200)
1  2 
videosite/DailyMotionGrabber.pm

@@@ -16,13 -16,18 +16,15 @@@ use strict
  
  sub new {
      my $class = shift;
 -    my $self = $class->SUPER::new();
 -
 -    $self->{'NAME'} = 'dailymotion';
 -    $self->{_SELFTESTURL} = 'http://www.dailymotion.com/video/xylv6u_moon-duo-sleepwalker_music';
 -    $self->{_SELFTESTTITLE} = 'Moon Duo - Sleepwalker';
 -    $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*dailymotion.com/(?:[^/]+/)*video/([-a-zA-Z0-9_]+))'];
 -
 -    bless($self, $class);
 -
 -    $self->_prepare_parameters();
 -
 -    return $self;
 +    my $self = $class->SUPER::new(
 +        NAME => 'dailymotion',
++        _SELFTESTURL => 'http://www.dailymotion.com/video/xylv6u_moon-duo-sleepwalker_music',
++        _SELFTESTTITLE => 'Moon Duo - Sleepwalker',
 +        PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*dailymotion.com/(?:[^/]+/)*video/([-a-zA-Z0-9_]+))'],
 +        @_,
 +    );
 +
 +    return bless($self, $class);
  }
  
  sub _parse {