CPAN::Groonga

r, 4, 'counter gets the (computed) default' );
  is( $bar->counter, 5, 'counter gets the (computed) default' );
  isnt( $foo->counter, $bar->counter, 'different objects, different counter value' );
}

'counter gets the (computed) default' );
  is( $bar->{counter}, 5, 'counter gets the (computed) default' );
  isnt( $foo->{counter}, $bar->{counter}, 'different objects, different counter value' );
}

s the (computed) default' );
  is( $bar->{counter}, 5, 'counter gets the (computed) default' );
  isnt( $foo->{counter}, $bar->{counter}, 'different objects, different counter value' );
}

package Boo