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