|
Revision 10090, 0.7 kB
(checked in by hanekomu, 5 years ago)
|
|
lang/perl/Class-Value-Contact: initial import
|
| Line | |
|---|
| 1 | package Class::Value::Contact::Exception::ReplaceFaxNo; |
|---|
| 2 | |
|---|
| 3 | # $Id: ReplaceFaxNo.pm 8617 2005-03-23 13:43:00Z gr $ |
|---|
| 4 | |
|---|
| 5 | use warnings; |
|---|
| 6 | use strict; |
|---|
| 7 | |
|---|
| 8 | |
|---|
| 9 | our $VERSION = '0.02'; |
|---|
| 10 | |
|---|
| 11 | |
|---|
| 12 | use base 'Class::Value::Contact::Exception::Replace'; |
|---|
| 13 | |
|---|
| 14 | |
|---|
| 15 | use constant default_message => 'Fax number [%s] replaced with [%s]'; |
|---|
| 16 | |
|---|
| 17 | |
|---|
| 18 | 1; |
|---|
| 19 | |
|---|
| 20 | |
|---|
| 21 | __END__ |
|---|
| 22 | |
|---|
| 23 | {% USE p = PodGenerated %} |
|---|
| 24 | |
|---|
| 25 | =head1 NAME |
|---|
| 26 | |
|---|
| 27 | {% p.package %} - contact-related value objects |
|---|
| 28 | |
|---|
| 29 | =head1 SYNOPSIS |
|---|
| 30 | |
|---|
| 31 | {% p.package %}->new; |
|---|
| 32 | |
|---|
| 33 | =head1 DESCRIPTION |
|---|
| 34 | |
|---|
| 35 | None yet. This is an early release; fully functional, but undocumented. The |
|---|
| 36 | next release will have more documentation. |
|---|
| 37 | |
|---|
| 38 | =head1 METHODS |
|---|
| 39 | |
|---|
| 40 | =over 4 |
|---|
| 41 | |
|---|
| 42 | {% p.write_methods %} |
|---|
| 43 | |
|---|
| 44 | =back |
|---|
| 45 | |
|---|
| 46 | {% p.write_inheritance %} |
|---|
| 47 | |
|---|
| 48 | {% PROCESS standard_pod %} |
|---|
| 49 | |
|---|
| 50 | =cut |
|---|
| 51 | |
|---|