dams

 is_primary_for_doc(BKey) ->    
     {ok, CHBin} = riak_core_ring_manager:get_chash_bin(),
     DocIdx = riak_core_util:chash_key(BKey),
     Itr = chashbin:iterator(DocIdx, CHBin),
     MyNode = node(),
     case chashbin:itr_value(Itr) of
         {_Idx, Node} when Node == MyNode -> true;
         {_Idx, _Node} -> false
     end.

dams

### Keybase proof

I hereby claim:

  * I am dams on github.
  * I am dams (https://keybase.io/dams) on keybase.
  * I have a public key whose fingerprint is 2836 F02C F2DD C65B B030  4B52 456F 2200 3FA5 2448

To claim this, I am signing this object:

dams

$ perl ./Build test 
t/00-load.t ....... ok   
t/pod-coverage.t .. ok   
t/pod.t ........... ok     
All tests successful.
Files=3, Tests=25,  1 wallclock secs ( 0.03 usr  0.02 sys +  0.57 cusr  0.07 csys =  0.69 CPU)
Result: PASS

dams

$ perl ./Build test 

dams

$ perl ./Build test merge=1 tap_harness_args=formatter_class=TAP::Formatter::JUnit

dams

sub do_tests {
  my $self = shift;

  my $tests = $self->find_test_files;

  if(@$tests) {
    my $args = $self->tap_harness_args;
    if($self->use_tap_harness or ($args and %$args)) {
      $self->run_tap_harness($tests);
    }

dams

use strict;
use warnings;
use Module::Build;

my $class = Module::Build->subclass(
    class => "Module::Build::Custom",
    code => <<'SUBCLASS' );

sub ACTION_hudson_test {
    my $self = shift;

dams

use strict;
use warnings;
use Module::Build;

my $class = Module::Build->subclass(
    class => "Module::Build::Custom",
    code => <<'SUBCLASS' );

sub ACTION_hudson_test {
    my $self = shift;

dams

use strict;
use warnings;
use Module::Build;

my $class = Module::Build->subclass(
    class => "Module::Build::Custom",
    code => <<'SUBCLASS' );

sub ACTION_hudson_test {
    my $self = shift;

dams

use strict;
use warnings;
use Module::Build;

my $class = Module::Build->subclass(
    class => "Module::Build::Custom",
    code => <<'SUBCLASS' );

sub ACTION_hudson_test {
    my $self = shift;