File Coverage

blib/lib/Net/DRI/Data/Contact/TCI.pm
Criterion Covered Total %
statement 12 17 70.5
branch 0 2 0.0
condition 0 2 0.0
subroutine 4 5 80.0
pod 0 1 0.0
total 16 27 59.2


line stmt bran cond sub pod time code
1             ## Domain Registry Interface, Handling of contact data for .RU/.SU/.XN--P1AI
2             ##
3             ## Copyright (c) 2010-2011 Dmitry Belyavsky
4             ## 2011 Patrick Mevzek . All rights reserved.
5             ##
6             ## This file is part of Net::DRI
7             ##
8             ## Net::DRI is free software; you can redistribute it and/or modify
9             ## it under the terms of the GNU General Public License as published by
10             ## the Free Software Foundation; either version 2 of the License, or
11             ## (at your option) any later version.
12             ##
13             ## See the LICENSE file that comes with this distribution for more details.
14             ####################################################################################################
15              
16             package Net::DRI::Data::Contact::TCI;
17              
18 1     1   863 use strict;
  1         1  
  1         27  
19 1     1   4 use warnings;
  1         1  
  1         24  
20              
21 1     1   4 use base qw(Net::DRI::Data::Contact);
  1         1  
  1         66  
22              
23 1     1   5 use Net::DRI::Exception;
  1         1  
  1         92  
24              
25             __PACKAGE__->register_attributes(qw(organization person verified unverified));
26              
27             ####################################################################################################
28              
29             sub validate
30             {
31 0     0 0   my ($self,$change)=@_;
32 0   0       $change||=0;
33              
34 0           my @errs;
35 0 0         Net::DRI::Exception::usererr_invalid_parameters('Invalid contact information: '.join('/',@errs)) if @errs;
36              
37 0           return 1; ## everything ok.
38             }
39              
40             ####################################################################################################
41             1;
42              
43             =pod
44              
45             =head1 NAME
46              
47             Net::DRI::Data::Contact::TCI - Handle TCI contact data for Net::DRI
48              
49             =head1 DESCRIPTION
50              
51             This subclass of Net::DRI::Data::Contact adds accessors and validation for
52             TCI specific data.
53              
54             =head1 METHODS
55              
56             The following accessors/mutators can be called in chain, as they all return the object itself.
57              
58             =head2 organization()
59              
60             =head2 person()
61              
62             =head2 verified()
63              
64             =head2 unverified()
65              
66             =head1 SUPPORT
67              
68             For now, support questions should be sent to:
69              
70             Enetdri@dotandco.comE
71              
72             Please also see the SUPPORT file in the distribution.
73              
74             =head1 SEE ALSO
75              
76             http://www.dotandco.com/services/software/Net-DRI/
77              
78             =head1 AUTHOR
79              
80             Dmitry Belyavsky, Ebeldmit@gmail.comE
81             Patrick Mevzek, Enetdri@dotandco.comE
82              
83             =head1 COPYRIGHT
84              
85             Copyright (c) 2010-2011 Dmitry Belyavsky
86             Copyright (c) 2011 Patrick Mevzek .
87             All rights reserved.
88              
89             This program is free software; you can redistribute it and/or modify
90             it under the terms of the GNU General Public License as published by
91             the Free Software Foundation; either version 2 of the License, or
92             (at your option) any later version.
93              
94             See the LICENSE file that comes with this distribution for more details.
95              
96             =cut