view release on metacpan or  search on metacpan

lib/Net/DNS/Dynamic/Proxyserver.pm  view on Meta::CPAN

subtype 'Net.DNS.Dynamic.Proxyserver.ValidSQLArguments'
	=> as 'HashRef'
	=> where { $_->{dsn} && $_->{user} && $_->{pass} && $_->{statement} }
	=> message { "Mandatory elements missing in argument 'ask_sql': dsn, user, pass, statement" };

has debug			=> ( is => 'ro', isa => 'Int', required => 0, default => 0 );
has host			=> ( is => 'ro', isa => 'Str', required => 0, default => '*' );
has port			=> ( is => 'ro', isa => 'Int', required => 0, default => 53 );
has uid				=> ( is => 'ro', isa => 'Int', required => 0 );
has gid				=> ( is => 'ro', isa => 'Int', required => 0 );
has ask_etc_hosts	=> ( is => 'ro', isa => 'HashRef', required => 0 );
has ask_sql			=> ( is => 'ro', isa => 'Net.DNS.Dynamic.Proxyserver.ValidSQLArguments', required => 0 );

has addrs			=> ( is => 'rw', isa => 'HashRef', init_arg => undef );
has forwarders	 	=> ( is => 'rw', isa => 'ArrayRef', required => 0, init_arg => 'nameservers' );
has forwarders_port => ( is => 'ro', isa => 'Int', required => 0, init_arg => 'nameservers_port' );
has dbh				=> ( is => 'rw', isa => 'Object', init_arg => undef );

has nameserver		=> ( is => 'rw', isa => 'Net::DNS::Nameserver', init_arg => undef );
has resolver		=> ( is => 'rw', isa => 'Net::DNS::Resolver', init_arg => undef );