15 |
require Message::Field::Structured; |
require Message::Field::Structured; |
16 |
push @ISA, qw(Message::Field::Structured); |
push @ISA, qw(Message::Field::Structured); |
17 |
|
|
18 |
*REG = \%Message::Util::REG; |
%REG = %Message::Util::REG; |
|
|
|
|
|
|
19 |
|
|
20 |
=head1 CONSTRUCTORS |
=head1 CONSTRUCTORS |
21 |
|
|
51 |
); |
); |
52 |
sub _init ($;%) { |
sub _init ($;%) { |
53 |
my $self = shift; |
my $self = shift; |
54 |
my %options = @_; |
my $DEFAULT = Message::Util::make_clone (\%DEFAULT); |
55 |
$self->SUPER::_init (%DEFAULT, %options); |
$self->SUPER::_init (%$DEFAULT, @_); |
56 |
} |
} |
57 |
|
|
58 |
=item $addr = Message::Field::Domain->new ([%options]) |
=item $addr = Message::Field::Domain->new ([%options]) |