File: ConfModule.stub

package info (click to toggle)
debconf 1.5.11etch2
  • links: PTS
  • area: main
  • in suites: etch
  • size: 3,364 kB
  • ctags: 714
  • sloc: perl: 8,347; sh: 286; makefile: 174; python: 117
file content (20 lines) | stat: -rw-r--r-- 610 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl
# This is a stub module that just uses the new module, and is here for
# backwards-compatability with pograms that use the old name.
package Debian::DebConf::Client::ConfModule;
use Debconf::Client::ConfModule;
use Debconf::Log qw{debug};
print STDERR "Debian::DebConf::Client::ConfModule is deprecated, please use Debconf::Client::ConfModule instead.\n";

sub import {
	splice @_, 0, 1 => Debconf::Client::ConfModule;
	goto &{Debconf::Client::ConfModule->can('import')};
}

sub AUTOLOAD {
	(my $sub = $AUTOLOAD) =~ s/.*:://;
	*$sub = \&{"Debconf::Client::ConfModule::$sub"};
	goto &$sub;
}

1