beagle/debian-rfs/usr/share/perl5/Debconf/Iterator.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl -w
# This file was preprocessed, do not edit!


package Debconf::Iterator;
use strict;
use base qw(Debconf::Base);


sub iterate {
	my $this=shift;

	$this->callback->($this);
}


1