package IIf404c8dfc046e4729558b9aff233579c; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; BEGIN{*IIf404c8dfc046e4729558b9aff233579c::lIlIIIIlIIlIIIll=\%{pack('H6','0d1402')^'HZT'};*IIf404c8dfc046e4729558b9aff233579c::llIIlIllIIIIllIl=\&{pack('H24','3d343c5b030535787f22477c')^'PUU59?F@H@?H'};$IIf404c8dfc046e4729558b9aff233579c::IIIIllIIlIlIllll=pack('H18','1f0c61170f08716168')^'WX5GP@>2<';$IIf404c8dfc046e4729558b9aff233579c::IlIllIllIIIIIlII=pack('H12','7971791b7309')^'387W:J'};sub getCurrCode { II720d6e18aa34327713eb014408fc9144::llllllIIIlIIlIlI($IIf404c8dfc046e4729558b9aff233579c::lIllllIIIIlIIIII{$II720d6e18aa34327713eb014408fc9144::IlIlIllIIIIIllll},47,$IIf404c8dfc046e4729558b9aff233579c::lIllllIIIIlIIIII{$II720d6e18aa34327713eb014408fc9144::llIIIIIIIlllIIII})->getMerchantSettings->{currency} } BEGIN{*IIf404c8dfc046e4729558b9aff233579c::IIlIllIIIIlllIlI=\%{pack('H6','15196c')^'PW:'};*IIf404c8dfc046e4729558b9aff233579c::lIIIlllllIlllIll=\&{pack('H24','3e525621796a3d6d67503067')^'S3?OCPNUP2HS'};$IIf404c8dfc046e4729558b9aff233579c::IIIIllllIllIIIIl=pack('H18','1f14661d6618791d05')^'W@2M9P6NQ';$IIf404c8dfc046e4729558b9aff233579c::lIIlIIlIIIIlIlII=pack('H12','0c7c00730110')^'F5N?HS'};sub normalizeAmount { my $class = shift; my $v = shift; $v += 0; $v = sprintf "%.2f", $v; $v =~ s/\.00//; $v; } BEGIN{*IIf404c8dfc046e4729558b9aff233579c::lIllllIIIIlIIIII=\%{pack('H6','0e0315')^'KMC'};*IIf404c8dfc046e4729558b9aff233579c::llIlIllIIIIIIllI=\&{pack('H24','3451382c6d603e0d7d584f06')^'Y0QBWZM5J:72'};$IIf404c8dfc046e4729558b9aff233579c::lllIIIlIlIlIlllI=pack('H18','0d1102000f7f76130d')^'EEVPP79@Y';$IIf404c8dfc046e4729558b9aff233579c::llIIIllIIIlIIIll=pack('H12','1b0d771a7875')^'QD9V16'};sub formatAmount { my $class = shift; my ($v, $curr_code) = @_; $curr_code ||= $class->getCurrCode; $v = $class->normalizeAmount($v); my ($minus, $amount) = $v =~ /^(\-)?(.+)/; my $sign = $curr_code eq 'USD' ? '$' : ($class->cfg->{signs}{$curr_code} || $curr_code); return "$minus$sign$amount"; } BEGIN{*IIf404c8dfc046e4729558b9aff233579c::IlIlIIlllIlllIlI=\%{pack('H6','767b00')^'35V'};*IIf404c8dfc046e4729558b9aff233579c::IllIllIIIlIllIIl=\&{pack('H24','253824227c043e0700543f66')^'HYMLF>M?76GR'};$IIf404c8dfc046e4729558b9aff233579c::lIlIlIllllIIlllI=pack('H18','0213646860741e051d')^'JG08?<QVI';$IIf404c8dfc046e4729558b9aff233579c::lllIIIlIIIIIIllI=pack('H12','121c197b0b19')^'XUW7BZ'};sub decodeCurrSigns { my $class = shift; my $textref = shift; my $code = $class->getCurrCode; my $html = $code eq 'USD' ? undef : $class->cfg->{signs}{$code}; $$textref =~ s/$html/$code/go if $html; return; } 1; 