X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FYahooGrabber.pm;h=4c88842f09ca0ee81d559455e4eb47ca377a7856;hb=09d45a4c4460dce9322f4528dad5123322ab6b38;hp=fc880438ffaf0253ad564f88cd68b0e61267adc5;hpb=771fcc7e7309dcb054d652812cead6b6bf47be5f;p=videosite.git diff --git a/videosite/YahooGrabber.pm b/videosite/YahooGrabber.pm index fc88043..4c88842 100644 --- a/videosite/YahooGrabber.pm +++ b/videosite/YahooGrabber.pm @@ -16,15 +16,13 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); + my $self = $class->SUPER::new( + NAME => 'yahoo', + PATTERNS => ['(http://video\.yahoo\.com/watch/\d+/(\d+))'], + @_, + ); - $self->{'NAME'} = 'yahoo'; - $self->{'PATTERNS'} = ['(http://video\.yahoo\.com/watch/\d+/(\d+))']; - - bless($self, $class); - $self->_prepare_parameters(); - - return $self; + return bless($self, $class); } sub _parse {