]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/app/app1/lib/App1/PickDomainAlternate.pm
750882efcb773dd5661b666787f48adc29238db1
1 package App1
::PickDomainAlternate
;
5 App1::PickDomainAlternate - pick from a list of generated alternates when pick_domain fails
13 sub skip
{ return 1 if shift-
>stash->{'domain_available'} }
17 return $self->{'pda_hash_swap'} ||= do { # cache since hash_fill is using us also
18 my $dom = $self->stash->{'domain_prefix'} || die "Missing domain_prefix";
20 my @domains = map {"$dom.$_"} qw(net org biz info us); # contrived availability check
21 my $hash = {domains
=> \
@domains};
27 my $doms = $self->hash_swap->{'domains'};
29 domain
=> $doms->[1], # promote .org #[rand @$doms],
33 sub info_complete
{ 0 } # step always shows when called
This page took 0.034204 seconds and 4 git commands to generate.