root/lang/perl/Class-Value-Contact/tags/Class-Value-Contact-0.02/lib/Class/Value/Contact/Exception/InvalidCountry.pm @ 10090

Revision 10090, 0.8 kB (checked in by hanekomu, 7 years ago)

lang/perl/Class-Value-Contact: initial import

Line 
1package Class::Value::Contact::Exception::InvalidCountry;
2
3# $Id: InvalidCountry.pm 13653 2007-10-22 09:11:20Z gr $
4
5use warnings;
6use strict;
7
8
9our $VERSION = '0.02';
10
11
12use base 'Class::Value::Contact::Exception';
13
14
15__PACKAGE__->mk_scalar_accessors(qw(country));
16
17
18use constant default_message => 'Invalid country [%s]';
19use constant PROPERTIES      => ( 'country' );
20
21
221;
23
24
25__END__
26
27{% USE p = PodGenerated %}
28
29=head1 NAME
30
31{% p.package %} - contact-related value objects
32
33=head1 SYNOPSIS
34
35    {% p.package %}->new;
36
37=head1 DESCRIPTION
38
39None yet. This is an early release; fully functional, but undocumented. The
40next release will have more documentation.
41
42=head1 METHODS
43
44=over 4
45
46{% p.write_methods %}
47
48=back
49
50{% p.write_inheritance %}
51
52{% PROCESS standard_pod %}
53
54=cut
55
Note: See TracBrowser for help on using the browser.