view release on metacpan or  search on metacpan

contrib/perftest-awl  view on Meta::CPAN

	traits => [ 'Getopt' ],
);

has 'score' => (
	is => 'ro', isa => 'Int', default => 1,
	documentation => 'score added to each entry',
	cmd_aliases => 's',
	traits => [ 'Getopt' ],
);

has '_addr' => ( is => 'ro', isa => 'ArrayRef[Str]', lazy => 1,
	default => sub {
		my $self = shift;
		my @e;
		for( my $i = 0 ; $i < $self->num_entries ; $i++ ) {
			push( @e, 'preftest-awl-'.$i)
		}
		return \@e;
	},
);