[](https://travis-ci.com/worthmine/Business-Tax-Withholding-JP) [](https://metacpan.org/release/Business-Tax-Withholding-JP)
# NAME
Business::Tax::Withholding::JP - auto calculation for Japanese tax and withholding
Business::Tax::Withholding::JP - 譌･譛ｬ縺ｮ豸郁ｲｻ遞弱→貅先ｳ牙ｾｴ蜿弱�繧�ｄ縺薙＠縺�ｨ育ｮ励ｒ閾ｪ蜍募喧縺励∪縺吶�
# SYNOPSIS
use Business::Tax::Withholding::JP;
my $tax = Business::Tax::Withholding::JP->new( price => 10000 );
$tax->net(); # 10000
$tax->tax(); # 800
$tax->full(); # 10800
$tax->withholding(); # 1021
$tax->total(); # 9779
# Or you can set the date in period of special tax being expired
$tax = Business::Tax::Withholding::JP->new( date => '2038-01-01' );
$tax->price(10000);
$tax->withholding(); # 1000
$tax->total(); # 9800
# And you may ignore the withholings
$tax = Business::Tax::Withholding::JP->new( no_wh => 1 );
$tax->price(10000);
$tax->tax(); # 800
$tax->withholding(); # 0
$tax->total(); # 10800
# DESCRIPTION
Business::Tax::Withholding::JP
is useful calculator for long term in Japanese Business.
You can get correctly taxes and withholdings from price in your context
without worrying about the special tax for reconstructing from the Earthquake.
the consumption tax **rate is 8%**
You can also ignore the withholings. It means this module can be a tax calculator
Business::Tax::Withholding::JP 縺ｯ譌･譛ｬ縺ｮ繝薙ず繝阪せ縺ｧ髟ｷ譛溽噪縺ｫ菴ｿ縺医ｋ繝｢繧ｸ繝･繝ｼ繝ｫ縺ｧ縺吶�
迚ｹ蛻･蠕ｩ闊域園蠕礼ｨ弱�譛滄剞繧貞ｿ��縺吶ｋ縺薙→縺ｪ縺上∬ｫ区ｱゆｾ｡譬ｼ縺九ｉ豁｣縺励￥遞朱≡鬘阪→貅先ｳ牙ｾｴ蜿朱｡阪ｒ險育ｮ励〒縺阪∪縺吶�
縺ｪ縺翫∵ｺ先ｳ牙ｾｴ蜿弱ｒ縺励↑縺�ｵ檎炊縺ｫ繧ょｯｾ蠢懊＠縺ｾ縺吶�**豸郁ｲｻ遞守紫縺ｯ8��** 縺ｧ縺吶�
## Constructor
### new( price => _Int_, amount => _Int_, date => _Date_, no\_wh => _Bool_ );
You can omit these paramators.
繝代Λ繝｡繝ｼ繧ｿ縺ｯ謖�ｮ壹＠縺ｪ縺上※讒九＞縺ｾ縺帙ｓ縲�
- price
the price of your products will be set. defaults 0.
遞取栢萓｡譬ｼ繧呈欠螳壹＠縺ｦ縺上□縺輔＞縲よ欠螳壹＠縺ｪ縺代ｌ縺ｰ0縺ｧ縺吶�
- amount
the amount of your products will be set. defaults 1.
謨ｰ驥上ｒ謖�ｮ壹＠縺ｦ縺上□縺輔＞縲よ欠螳壹＠縺ｪ縺代ｌ縺ｰ1縺ｧ縺吶�
- date
You can set payday. the net of withholding depends on this. default is today.
謾ｯ謇墓律繧呈欠螳壹＠縺ｦ縺上□縺輔＞縲よｺ先ｳ牙ｾｴ蜿朱｡阪′螟牙虚縺吶ｋ縺薙→縺後≠繧翫∪縺吶よ欠螳壹＠縺ｪ縺代ｌ縺ｰ莉頑律縺ｨ縺励※險育ｮ励＠縺ｾ縺吶�
- no\_wh
If you set this flag, the all you can get is only tax and total. defaults 0 and this is read-only.
縺薙�繝輔Λ繧ｰ繧堤ｫ九※繧九→縺薙�繝｢繧ｸ繝･繝ｼ繝ｫ縺ｮ髟ｷ謇繧貞床辟｡縺励↓縺ｧ縺阪∪縺吶ょ�譛溷､縺ｯ繧ゅ■繧阪ｓ0縺ｧ縲√≠縺ｨ縺九ｉ螟峨∴繧九％縺ｨ縺ｯ縺ｧ縺阪∪縺帙ｓ縲�
## Methods and subroutine
- price
You can reset the price.
price 縺ｫ蛟､繧剃ｻ｣蜈･蜿ｯ閭ｽ縺ｧ縺吶�
- amount
You can reset the amount.
amount 縺ｫ蛟､繧剃ｻ｣蜈･蜿ｯ閭ｽ縺ｧ縺吶�
- date
You can reset the payday like 'YYYY-MM-DD'
date 縺ｫ繧ょ､繧剃ｻ｣蜈･蜿ｯ閭ｽ縺ｧ縺吶ゅヵ繧ｩ繝ｼ繝槭ャ繝医�'YYYY-MM-DD'��-蛹ｺ蛻�ｊ�峨〒縺吶�
- net
You can get the net of your pay. it's equal to the price.
So it's the alias of price().
net 縺ｯ price 縺ｨ蜷後§蜒阪″繧偵＠縺ｾ縺吶�
- tax
You can get the net of your tax.
遞朱｡阪�縺ｿ繧貞叙蠕励＠縺溘＞蝣ｴ蜷医�縺薙■繧峨ｒ
- full
You can get the net of your pay including tax.
遞手ｾｼ驥鷹｡阪ｒ遏･繧翫◆縺��ｴ蜷医�縺薙■繧峨ｒ
- withholding
You can get the net of your withholding from your pay.
貅先ｳ牙ｾｴ蜿朱｡阪ｒ遏･繧翫◆縺��ｴ蜷医�縺薙■繧峨ｒ
- total
You can get the total of your pay including tax without withholding
貅先ｳ牙ｾｴ蜿朱｡阪ｒ蟾ｮ縺怜ｼ輔＞縺溽ｨ手ｾｼ謾ｯ謇暮｡阪ｒ遏･繧翫◆縺��ｴ蜷医�縺薙■繧峨ｒ縺贋ｽｿ縺�￥縺�縺輔＞縲�
# LICENSE
Copyright (C) worthmine.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
# AUTHOR
worthmine <worthmine@cpan.org>