package App1::PickDomainAlternate;

=head1 NAME

App1::PickDomainAlternate - pick from a list of generated alternates when pick_domain fails

=cut

use strict;
use warnings;
use base qw(App1);

sub skip { return 1 if shift->stash->{'domain_available'} }

sub hash_swap {
    my $self = shift;
    return $self->{'pda_hash_swap'} ||= do { # cache since hash_fill is using us also
        my $dom  = $self->stash->{'domain_prefix'} || die "Missing domain_prefix";

        my @domains = map {"$dom.$_"} qw(net org biz info us); # contrived availability check
        my $hash = {domains => \@domains};
    };
}

sub hash_fill {
    my $self = shift;
    my $doms = $self->hash_swap->{'domains'};
    return {
        domain => $doms->[1], # promote .org #[rand @$doms],
    };
}

sub info_complete { 0 } # step always shows when called

1;