1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# -*- perl -*-
# A minimalistic BackupPC::Lib mockup as we can't expect people to
# install a full BackupPC instance. -- Axel
#
# Copyright (C) 2015 Axel Beckert <abe@debian.org>
#
# DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
# TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
#
# 0. You just DO WHAT THE FUCK YOU WANT TO.
package BackupPC::Lib;
sub new {
my %bla;
bless(\%bla, shift);
return \%bla;
}
foreach my $f (qw(ServerConnect ChildInit Conf ServerMesg)) {
eval "sub $f { return undef; }";
}
return 1;
|
