home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Element / Noninteractive.pm < prev    next >
Encoding:
Perl POD Document  |  2006-07-24  |  342 b   |  27 lines
  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Noninteractive;
  6. use strict;
  7. use base qw(Debconf::Element);
  8.  
  9.  
  10. sub visible {
  11.     my $this=shift;
  12.     
  13.     return;
  14. }
  15.  
  16.  
  17. sub show {
  18.     my $this=shift;
  19.  
  20.     my $default='';
  21.     $default=$this->question->value if defined $this->question->value;
  22.     $this->value($default);
  23. }
  24.  
  25.  
  26. 1
  27.