git://git.camperquake.de
/
videosite.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
- Move a comment around
[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
}