File Coverage

blib/lib/Algorithm/BIT2D/XS.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	3	3	100.0
total	21	27	77.7

package Algorithm::BIT2D::XS;

use 5.014000;
use strict;
use warnings;

our $VERSION = '0.002';

use Algorithm::BIT::XS;

sub new {
	my ($class, $n, $m) = @_;
	create($n, $m);
}

sub get {
	my ($b, $i1, $i2) = @_;
	$b->query($i1, $i2) + $b->query($i1 - 1, $i2 - 1)
	  - $b->query($i1 - 1, $i2) - $b->query($i1, $i2 - 1);
}

sub set {
	my ($b, $i1, $i2, $value) = @_;
	$b->update($i1, $i2, $value - $b->get($i1, $i2))
}

1;
__END__