my $n = size($obj->link('next'));

sub size {scalar @_}