/usr/local/CPAN/Package-Transporter/Package/Transporter/Generator/Drain/Random.pm

• package Package::Transporter::Generator::Drain::Random
  • ATB_DATA
  • determine
• EOF

package Package::Transporter::Generator::Drain::Random;
use strict;
use warnings;
use parent qw(
	Package::Transporter::Generator::Drain::Constant_Function
	Package::Transporter::Generator
);

sub ATB_DATA() { 1 };

my %VALUES = ('FFFFFFFF' => 1);

sub determine {
	my ($self, $prefix, $data) = @_;

	my @values = ();
	my $value = 'FFFFFFFF';
#	my %seen = ();
	foreach my $name (@$data) {
#		next if(exists($seen{$name}));
#		$seen{$name} = 1;
                while($VALUES{$value}) {
                        $value = sprintf('%08x', int(rand(2**32-1)));
                }
                $VALUES{$value} = 1;

		push(@values, ["$prefix$name", $value]);
	}
	return(\@values);
}

1;