@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phpmyadmin-ubuntu-m-2vcpu-16gb-blr1-01 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
Current Path :
/
usr
/
share
/
perl5
/
Debconf
/
Path :
Upload File :
New :
File
Dir
//usr/share/perl5/Debconf/Base.pm
#!/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