use Moops;

class FooBar {
	method my $_topsecretsort ($x, $y) {
		return 42;
	}
	method count_sorted_foobars () {
		my @results = $self->$_topsecretsort('foo', 'bar');
		return scalar(@results);
	}
}

say FooBar->new->count_sorted_foobars;