File Coverage

blib/lib/Number/Object/Plugin/Tax/JP.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Number::Object::Plugin::Tax::JP;
2              
3 1     1   1843 use strict;
  1         4  
  1         56  
4 1     1   8 use warnings;
  1         3  
  1         48  
5 1     1   6 use base 'Number::Object::Plugin::Tax';
  1         3  
  1         19  
6              
7 1     1   6 use POSIX;
  1         2  
  1         7  
8              
9             our $RATE = '1.08';
10              
11             sub calc {
12 12     12 0 18 my($self, $c) = @_;
13 12         49 $self->SUPER::calc($c, $RATE);
14             }
15              
16             1;