@@ -87,8 +87,8 @@ sub lcom4 { sub number_of_functions { my ($self, $module) = @_; - my $list = $self->model->functions($module); - return $list? scalar $list : 0; + my @list = $self->model->functions($module); + return scalar(@list); } sub amz_size { Egypt/Metrics.pm 40e79055ca8e5ba2a8d72af2762c1dddcfec44c4 Antonio Terceiro terceiro@softwarelivre.org http://github.com/terceiro/egypt/commit/4f272334b5b86ae2df7679711fc838654c6b7026 4f272334b5b86ae2df7679711fc838654c6b7026 2009-10-29T07:52:16-07:00 2009-10-29T07:52:16-07:00 Using Perl list correctly 6d68cdcb38ce15cb6f1ca9b6868fe4a569218f1d Antonio Terceiro terceiro@softwarelivre.org