40 lines
499 B
Perl
40 lines
499 B
Perl
#!/usr/bin/perl -w
|
|
# This file was preprocessed, do not edit!
|
|
|
|
|
|
package Debconf::Base;
|
|
use Debconf::Log ':all';
|
|
use strict;
|
|
|
|
|
|
sub new {
|
|
my $proto = shift;
|
|
my $class = ref($proto) || $proto;
|
|
my $this=bless ({@_}, $class);
|
|
$this->init;
|
|
return $this;
|
|
}
|
|
|
|
|
|
sub init {}
|
|
|
|
|
|
sub AUTOLOAD {
|
|
(my $field = our $AUTOLOAD) =~ s/.*://;
|
|
|
|
no strict 'refs';
|
|
*$AUTOLOAD = sub {
|
|
my $this=shift;
|
|
|
|
return $this->{$field} unless @_;
|
|
return $this->{$field}=shift;
|
|
};
|
|
goto &$AUTOLOAD;
|
|
}
|
|
|
|
sub DESTROY {
|
|
}
|
|
|
|
|
|
1
|