Code Index:

package Net::DRI::Data::Contact::PL
- validate
EOF

NAME

Net::DRI::Data::Contact::PL - Handle .PL contact data for Net::DRI

DESCRIPTION

This subclass of Net::DRI::Data::Contact adds accessors and validation for .PL specific data.

METHODS

The following accessors/mutators can be called in chain, as they all return the object itself.

individual()

1 if the object represents a private person, 0 otherwise

consent_for_publishing()

1 if this person gave its assent for publishing personal details in WHOIS database, 0 otherwise. This element has no meaning for a contact which does not represent a private person.

SUPPORT

For now, support questions should be sent to:

<netdri@dotandco.com>

Please also see the SUPPORT file in the distribution.

AUTHOR

Patrick Mevzek, <netdri@dotandco.com>

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

See the LICENSE file that comes with this distribution for more details.

## Domain Registry Interface, Handling of contact data for .PL ## ## Copyright (c) 2006,2008 Patrick Mevzek <netdri@dotandco.com>. All rights reserved. ## ## This file is part of Net::DRI ## ## Net::DRI is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 2 of the License, or ## (at your option) any later version. ## ## See the LICENSE file that comes with this distribution for more details. # # # ######################################################################################### package Net::DRI::Data::Contact::PL; use strict; use base qw/Net::DRI::Data::Contact/; use Net::DRI::Exception; our $VERSION=do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf("%d".".%02d" x $#r, @r); }; __PACKAGE__->register_attributes(qw(individual consent_for_publishing));

#################################################################################################### sub validate { my ($self,$change)=@_; $change||=0; my @errs; $self->SUPER::validate($change); ## will trigger an Exception if problem push @errs,'individual' if (defined($self->individual()) && $self->individual()!~m/^(?:0|1)$/); push @errs,'consent_for_publishing' if (defined($self->consent_for_publishing()) && $self->consent_for_publishing()!~m/^(?:0|1)$/); Net::DRI::Exception::usererr_invalid_parameters('Invalid contact information: '.join('/',@errs)) if @errs; return 1; ## everything ok. } #################################################################################################### 1;