—
—

              
package Number::Phone::NANP::CA;
use strict;
use base 'Number::Phone::NANP';
use Number::Phone::Country qw(noexport);
our $VERSION = 1.1;
my $cache = {};
# NB this module doesn't register itself, the NANP module should be
# used and will load this one as necessary
HideShow 32 lines of Pod
=head1 NAME
Number::Phone::NANP::CA - CA-specific methods for Number::Phone
=head1 DESCRIPTION
This class implements CA-specific methods for Number::Phone.  It is
a subclass of Number::Phone::NANP, which is in turn a subclass of
Number::Phone.  Number::Phone::NANP sits in the middle because all
NANP countries can share some significant chunks of code.  You should
never need to C<use> this module directly, as C<Number::Phone::NANP>
will load it automatically when needed.
=head1 SYNOPSIS
    use Number::Phone::NANP;
     
    my $phone_number = Number::Phone->new('+1 613 563 7242');
    # returns a Number::Phone::NANP::CA object
     
=head1 METHODS
The following methods from Number::Phone are overridden:
=over 4
=item regulator
Returns information about the national telecomms regulator.
=cut
sub regulator { 'CRTC, http://www.crtc.gc.ca/'; }
HideShow 21 lines of Pod
=back
=head1 BUGS/FEEDBACK
Please report bugs by email, including, if possible, a test case.             
I welcome feedback from users.
=head1 LICENCE
You may use, modify and distribute this software under the same terms as
perl itself.
=head1 AUTHOR
David Cantrell E<lt>david@cantrell.org.ukE<gt>
Copyright 2005
=cut
1;