scalar @{[ $obj->link('next') ]}

##</code><code>##

scalar @{ $obj->link('next') }