The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Number::Object::Plugin::Tax::JP;

use strict;
use warnings;
use base 'Number::Object::Plugin::Tax';

use POSIX;

our $RATE = '1.05';

sub calc {
    my($self, $c) = @_;
    $self->SUPER::calc($c, $RATE);
}

1;