X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FBlipTVGrabber.pm;h=86084dd992c74bf9a5c3be091854c6f8670a44aa;hb=20de709f626017479b48e4d2db1a80faf021901a;hp=2a48541947d8fed819627ced97313fa14ec8b695;hpb=045ee5cf473f6cd10907c80b716f87e369773b5e;p=videosite.git diff --git a/videosite/BlipTVGrabber.pm b/videosite/BlipTVGrabber.pm index 2a48541..86084dd 100644 --- a/videosite/BlipTVGrabber.pm +++ b/videosite/BlipTVGrabber.pm @@ -16,17 +16,15 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); - - $self->{'NAME'} = 'bliptv'; - $self->{_SELFTESTURL} = 'http://blip.tv/rebelliouspixelscom/buffy-vs-edward-twilight-remixed-2274024'; - $self->{_SELFTESTTITLE} = 'Buffy vs Edward (Twilight Remixed)'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*blip.tv/\S+/\S+)']; - - bless($self, $class); - $self->_prepare_parameters(); - - return $self; + my $self = $class->SUPER::new( + NAME => 'bliptv', + _SELFTESTURL => 'http://blip.tv/rebelliouspixelscom/buffy-vs-edward-twilight-remixed-2274024', + _SELFTESTTITLE => 'Buffy vs Edward (Twilight Remixed)', + PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*blip.tv/\S+/\S+)'], + @_, + ); + + return bless($self, $class); } sub _parse {