package ShippingBasic; use strict; use base qw/JinPluginBase/; sub init { my $this = shift()->SUPER::init(@_); return; } sub assess { my $this = shift; my ($order, $sale) = @_; my $country = $order->{shipping_country} || $order->{user_country}; my $state = $order->{shipping_state} || $order->{user_state}; if ( ($this->{country} || $this->{state}) ? (! $this->{country} || $this->{country} eq $country) && (! $this->{state} || $this->{state} eq $state) : ! (grep { $_ && $_ eq $country } split (',', $this->{all_cnt_except})) ) { return $this->{price} + 0; } return; } sub processable { 0; } sub process { my $this = shift; my ($order, $sale) = @_; (undef, undef); } sub status { my $this = shift; my $shipdue = shift; undef; } sub isFulfilled { my $this = shift; my $shipdue = shift; undef; } 1; 