view release on metacpan or  search on metacpan

lib/Google/Checkout/General/TaxTableAreas.pm  view on Meta::CPAN

C<Google::Checkout::XML::Constants::FULL_50_STATES> is supported.

=item get_country

Returns the country area.

=item add_postal POSTAL_AREA

Adds another postal area.

=item get_postal

Returns the postal area.

=item add_world BOOLEAN

Adds world area.

=item get_world

Returns 

=back

=cut

=head1 COPYRIGHT

Copyright 2006 Google. All rights reserved.

=head1 SEE ALSO

Google::Checkout::General::TaxRule
Google::Checkout::General::ShippingRestrictions

=cut

use strict;
use warnings;

use Google::Checkout::General::ShippingRestrictions;
our @ISA = qw/Google::Checkout::General::ShippingRestrictions/;

sub new 
{
  my ($class, %args) = @_;

  my %translated;

  #--
  #-- States
  #--
  $translated{allowed_state}        = $args{state}   if $args{state};
  $translated{allowed_zip}          = $args{zip}     if $args{zip};
  $translated{allowed_country_area} = $args{country} if $args{country};
  $translated{allowed_postal_area}  = $args{postal}  if $args{postal};
  $translated{allowed_world_area}   = $args{world}   if $args{world};

  my $self = $class->SUPER::new(%translated);

  return bless $self => $class;
}

sub get_state   
{
  my ($self) = @_; 

  return $self->get_allowed_state;
}

sub get_zip     
{ 
  my ($self) = @_;

  return $self->get_allowed_zip;
}

sub get_country 
{ 
  my ($self) = @_;

  return $self->get_allowed_country_area; 
}

sub get_postal 
{ 
  my ($self) = @_;

  return $self->get_allowed_postal_area; 
}

sub get_world 
{ 
  my ($self) = @_;

  return $self->get_allowed_world_area; 
}

sub add_state   
{ 
  my ($self, $data) = @_;

  return $self->add_allowed_state($data);
}

sub add_zip     
{ 
  my ($self, $data) = @_;

  return $self->add_allowed_zip($data);
}

sub add_country 
{ 
  my ($self, $data) = @_;

  return $self->add_allowed_country_area($data);
}

sub add_postal
{