view release on metacpan or search on metacpan
lib/Google/Checkout/Command/AddMerchantOrderNumber.pm view on Meta::CPAN
use Google::Checkout::XML::Constants;
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(
%args,
name => Google::Checkout::XML::Constants::ADD_MERCHANT_ORDER_NUMBER);
$self = bless $self => $class;
$self->set_merchant_order_number($args{merchant_order_number});
return $self;
}
sub get_merchant_order_number
{
my ($self) = @_;
return $self->{merchant_order_number};
lib/Google/Checkout/Command/AddTrackingData.pm view on Meta::CPAN
use Google::Checkout::Command::DeliverOrder;
our @ISA = qw/Google::Checkout::Command::DeliverOrder/;
sub new
{
my ($class, @args) = @_;
my $self = $class->SUPER::new(@args);
$self->set_name(Google::Checkout::XML::Constants::ADD_TRACKING_DATA);
return bless $self => $class;
}
sub to_xml
{
my ($self, %args) = @_;
my $carrier = get_valid_carrier($self->get_carrier);
my $tracking_number = $self->get_tracking_number;
return Google::Checkout::General::Error->new(
lib/Google/Checkout/Command/CancelOrder.pm view on Meta::CPAN
use Google::Checkout::General::Error;
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(%args, name => Google::Checkout::XML::Constants::CANCEL_ORDER);
$self->{comment} = $args{comment} || '';
$self->{reason} = $args{reason} || '';
return bless $self => $class;
}
sub get_comment
{
my ($self) = @_;
return $self->{comment};
}
sub set_comment
lib/Google/Checkout/Command/ChargeOrder.pm view on Meta::CPAN
use Google::Checkout::Command::GCOCommand;
our @ISA = qw/Google::Checkout::Command::GCOCommand/;
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(%args, name => Google::Checkout::XML::Constants::CHARGE_ORDER);
$self->{amount} = $args{amount} || 0;
return bless $self => $class;
}
sub get_amount
{
my ($self) = @_;
return $self->{amount};
}
sub set_amount
lib/Google/Checkout/Command/DeliverOrder.pm view on Meta::CPAN
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(%args, name => Google::Checkout::XML::Constants::DELIVER_ORDER);
$self->{carrier} = $args{carrier};
$self->{tracking_number} = $args{tracking_number} || '';
$self->{send_email} = $args{send_email} ? 'true' : 'false';
return bless $self => $class;
}
sub get_carrier
{
my ($self) = @_;
return $self->{carrier};
}
sub set_carrier
lib/Google/Checkout/Command/GCOCommand.pm view on Meta::CPAN
{
my ($class, %args) = @_;
delete $args{root};
my $self = $class->SUPER::new(%args);
$self->{name} = $args{name} || '';
$self->{order_number} = $args{order_number};
return bless $self => $class;
}
sub get_name
{
my ($self) = @_;
return $self->{name};
}
sub set_name
lib/Google/Checkout/Command/RefundOrder.pm view on Meta::CPAN
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(%args, name => Google::Checkout::XML::Constants::REFUND_ORDER);
$self->{amount} = $args{amount} || 0;
$self->{comment} = $args{comment} || '';
$self->{reason} = $args{reason} || '';
return bless $self => $class;
}
sub get_amount
{
my ($self) = @_;
return $self->{amount};
}
sub set_amount
lib/Google/Checkout/Command/SendBuyerMessage.pm view on Meta::CPAN
use Google::Checkout::General::Error;
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(
%args,
name => Google::Checkout::XML::Constants::SEND_BUYER_MESSAGE);
$self = bless $self => $class;
$self->set_message($args{message});
$self->set_send_email($args{send_email});
return $self;
}
sub get_message
{
my ($self) = @_;
lib/Google/Checkout/General/DigitalContent.pm view on Meta::CPAN
use constant EMAIL_DELIVERY => "email_delivery";
use constant KEY_URL_DELIVERY => "key_url_delivery";
sub new
{
my ($class, %args) = @_;
my $self = Google::Checkout::General::MerchantItem->new(%args);
$self = bless $self => $class;
$self->set_delivery_method($args{delivery_method});
$self->set_download_instruction($args{download_instruction});
$self->set_key($args{key});
$self->set_url($args{url});
return $self;
}
sub get_delivery_method
lib/Google/Checkout/General/FlatRateShipping.pm view on Meta::CPAN
our @ISA = qw/Google::Checkout::General::Shipping/;
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(
%args,
name => Google::Checkout::XML::Constants::FLAT_RATE_SHIPPING);
return bless $self => $class;
}
1;
lib/Google/Checkout/General/GCO.pm view on Meta::CPAN
} else {
#--
#-- try a default configuration
#--
$self->{_reader} = Google::Checkout::General::ConfigReader->new;
}
return bless $self => $class;
}
sub reader
{
my ($self) = @_;
return $self->{_reader};
}
sub get_checkout_url
lib/Google/Checkout/General/GiftCertificate.pm view on Meta::CPAN
use Google::Checkout::XML::Constants;
sub new
{
my ($class, %args) = @_;
my $self = {name => defined $args{name} ? $args{name} : '',
pin => defined $args{pin} ? $args{pin} : '',
accepted => defined $args{accepted} ? $args{accepted} : 0};
return bless $self => $class;
}
sub get_accepted
{
my ($self) = @_;
return $self->{accepted};
}
sub set_accepted
lib/Google/Checkout/General/MerchantCalculatedShipping.pm view on Meta::CPAN
our @ISA = qw/Google::Checkout::General::Shipping/;
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(
%args,
name => Google::Checkout::XML::Constants::MERCHANT_CALCULATED_SHIPPING);
return bless $self => $class;
}
1;
lib/Google/Checkout/General/MerchantCalculationResult.pm view on Meta::CPAN
$self->{_has_coupon_calculated_amount} = $_has_coupon_calculated_amount;
$self->{_has_coupon_message} = $_has_coupon_message;
$self->{_has_certificate_message} = $_has_certificate_message;
$self->{_has_coupon_result} = $_has_coupon_result;
$self->{_has_gift_certificate} = $_has_gift_certificate;
$self->{_has_merchant_code_results} = $_has_merchant_code_results;
$self->{_has_certificate_calculated_amount} =
$_has_certificate_calculated_amount;
return bless $self => $class;
}
sub has_shipping_rate
{
my ($self) = @_;
return $self->{_has_shipping_rate};
}
sub has_shippable
lib/Google/Checkout/General/MerchantCalculationResults.pm view on Meta::CPAN
attr => [xmlns => $xml_schema]);
$self->add_element(name => Google::Checkout::XML::Constants::RESULTS);
#--
#-- If there is any merchant calculation result, add them now
#-- This should be an array reference because we can have multiple result
#--
$self->{merchant_calculation_result} = $args{merchant_calculation_result}
if $args{merchant_calculation_result};
return bless $self => $class;
}
sub get_merchant_calculation_result
{
my ($self) = @_;
return $self->{merchant_calculation_result} || [];
}
sub add_merchant_calculation_result
lib/Google/Checkout/General/MerchantCalculations.pm view on Meta::CPAN
use warnings;
sub new
{
my ($class, %args) = @_;
my $self = {url => $args{url} || '',
coupons => $args{coupons} ? 'true' : 'false',
certificates => $args{certificates} ? 'true' : 'false'};
return bless $self => $class;
}
sub get_url
{
my ($self) = @_;
return $self->{url};
}
sub set_url
lib/Google/Checkout/General/MerchantCheckoutFlow.pm view on Meta::CPAN
if ($args{parameterized_urls})
{
push(@{$self->{parameterized_urls}}, $_)
for grep is_parameterized_url($_), @{$args{parameterized_urls}};
}
$self->{platform_id} = $args{platform_id}
if defined $args{platform_id};
return bless $self => $class;
}
sub get_shipping_method
{
my ($self) = @_;
return $self->{shipping_method};
}
sub add_shipping_method
{
lib/Google/Checkout/General/MerchantItem.pm view on Meta::CPAN
$self->{tax_table_selector} = $args{tax_table_selector}
if $args{tax_table_selector};
#--
#-- add merchant item id if there is one
#--
$self->{merchant_item_id} = $args{merchant_item_id}
if $args{merchant_item_id};
return bless $self => $class;
}
sub get_name
{
my ($self) = @_;
return $self->{name};
}
sub get_description
lib/Google/Checkout/General/ParameterizedUrl.pm view on Meta::CPAN
#--
#-- Note that URL *must* be properly URI escaped
#--
$self->{url} = $args{url};
#--
#-- This should be a hash reference
#--
$self->{url_params} = $args{url_params};
return bless $self => $class;
}
sub get_url {
my ($self) = @_;
return $self->{url} || '';
}
sub set_url {
my ($self, $url) = @_;
$self->{url} = $url;
lib/Google/Checkout/General/ParameterizedUrls.pm view on Meta::CPAN
#--
#-- Note that URL *must* be properly URI escaped
#--
$self->{url} = $args{url};
#--
#-- This should be a hash reference
#--
$self->{url_params} = $args{url_params};
return bless $self => $class;
}
sub get_url {
my ($self) = @_;
return $self->{url} || '';
}
sub set_url {
my ($self, $url) = @_;
$self->{url} = $url;
lib/Google/Checkout/General/Pickup.pm view on Meta::CPAN
sub new
{
my ($class, %args) = @_;
my $self = $class->SUPER::new(
%args,
name => Google::Checkout::XML::Constants::PICKUP,
price => defined $args{price} ? $args{price} : 0);
return bless $self => $class;
}
1;
lib/Google/Checkout/General/Shipping.pm view on Meta::CPAN
sub new
{
my ($class, %args) = @_;
my $self = { name => $args{name},
shipping_name => $args{shipping_name},
price => defined $args{price} ? $args{price} : -1,
address_filters => $args{address_filters},
restriction => $args{restriction} };
return bless $self => $class;
}
sub get_name
{
my ($self) = @_;
return $self->{name};
}
sub set_name
lib/Google/Checkout/General/ShippingRestrictions.pm view on Meta::CPAN
{
push(@{$self->{excluded_zip}}, $_) for (@{$args{excluded_zip}});
}
if ($args{excluded_country_area})
{
push(@{$self->{excluded_country_area}}, $_)
for (@{$args{excluded_country_area}});
}
return bless $self => $class;
}
### BEGIN DEPRECATED ###
sub add_allowed_allow_us_po_box
{
my ($self, $data) = @_;
return $self->set_allow_us_po_box($data);
}
lib/Google/Checkout/General/ShoppingCart.pm view on Meta::CPAN
}
}
else
{
push(@{$self->{private}}, $args{private});
}
}
$self->{checkout_flow} = $args{checkout_flow} if defined $args{checkout_flow};
return bless $self => $class;
}
sub get_expiration
{
my ($self) = @_;
return $self->{expiration};
}
sub set_expiration
lib/Google/Checkout/General/TaxRule.pm view on Meta::CPAN
if (ref $args{area} eq 'ARRAY')
{
push(@{$self->{area}}, $_) for @{$args{area}};
}
else
{
push(@{$self->{area}}, $args{area});
}
}
return bless $self => $class;
}
sub get_rate
{
my ($self) = @_;
return $self->{rate};
}
sub set_rate
lib/Google/Checkout/General/TaxTable.pm view on Meta::CPAN
sub new
{
my ($class, %args) = @_;
my $self = {default => $args{default},
name => $args{name} || '',
standalone => $args{standalone} ? 'true' : 'false'};
$self->{rules} = $args{rules} if $args{rules};
return bless $self => $class;
}
sub is_default
{
my ($self, $data) = @_;
my $oldv = $self->{default};
$self->{default} = $data if @_ > 1;
lib/Google/Checkout/General/TaxTableAreas.pm view on Meta::CPAN
#-- 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
lib/Google/Checkout/Notification/GCONotification.pm view on Meta::CPAN
sub new
{
my ($class, %args) = @_;
my $self = { xml => $args{xml} || '' };
eval { $self->{data} = XMLin($self->{xml}) if $self->{xml} };
return Google::Checkout::General::Error->new(-1, "XML Error: $@") if $@;
return bless $self => $class;
}
sub get_xml
{
my ($self) = @_;
return $self->{xml};
}
sub set_xml
lib/Google/Checkout/XML/CheckoutXmlWriter.pm view on Meta::CPAN
} #-- END for
$self->close_element() if @{$shippings};
}
$self->close_element(); # MERCHANT_CHECKOUT_FLOW
$self->close_element(); # CHECKOUT_FLOW
$self->close_element(); # CHECKOUT_ROOT
return bless $self => $class;
}
#-- PRIVATE --#
sub _handle_restrictions_filters
{
my ($self, $i, $type) = @_;
if ($i)
{
my $as = $i->get_allowed_state();
lib/Google/Checkout/XML/CommandXmlWriter.pm view on Meta::CPAN
$currency_supported]);
}
if ($args{command}->get_reason)
{
$self->add_element(close => 1,
name => Google::Checkout::XML::Constants::REASON,
data => $args{command}->get_reason);
}
return bless $self => $class;
}
1;
view release on metacpan - search on metacpan