use 5.008; use strict; use warnings; package Class::Value::Net::NAPTR::Order; BEGIN { $Class::Value::Net::NAPTR::Order::VERSION = '1.110250'; } # ABSTRACT: Network-related value objects use parent 'Class::Value::Net::NAPTR::UInt16'; sub send_notify_value_invalid { my ($self, $value) = @_; local $Error::Depth = $Error::Depth + 2; $self->exception_container->record( 'Class::Value::Net::Exception::NAPTR::InvalidOrder', recordfield => $value,); } sub send_notify_value_not_wellformed { my ($self, $value) = @_; local $Error::Depth = $Error::Depth + 2; $self->exception_container->record( 'Class::Value::Net::Exception::NAPTR::MalformedOrder', recordfield => $value,); } 1; __END__ =pod =head1 NAME Class::Value::Net::NAPTR::Order - Network-related value objects =head1 VERSION version 1.110250 =head1 METHODS =head2 send_notify_value_invalid FIXME =head2 send_notify_value_not_wellformed FIXME =head1 INSTALLATION See perlmodinstall for information and options on installing Perl modules. =head1 BUGS AND LIMITATIONS No bugs have been reported. Please report any bugs or feature requests through the web interface at L. =head1 AVAILABILITY The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit L to find a CPAN site near you, or see L. The development version lives at L and may be cloned from L. Instead of sending patches, please fork this project using the standard git and github infrastructure. =head1 AUTHOR Marcel Gruenauer =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2004 by Marcel Gruenauer. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut