git://git.camperquake.de
/
videosite.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ad97294876a6259392e344eef42cfa1be9756fa4
[videosite.git]
/
videosite
/
NullGetter.pm
1
package NullGetter;
2
3
use GetterBase;
4
@ISA = qw(GetterBase);
5
6
use strict;
7
use LWP::Simple qw(!get);
8
9
sub new {
10
my $class = shift;
11
my $self = $class->SUPER::new();
12
13
$self->{'NAME'} = 'nullgetter';
14
15
bless($self, $class);
16
$self->_prepare_parameters();
17
18
return $self;
19
}
20
21
sub get {
22
23
return 1;
24
}