package Devel::Count;

sub INIT {
  my $a = \@{"::_<$0"};
  for my $ln (1..$#$a) {
    next if $a->[$ln] == 0;
    $count++;
  }
  print "$count\n";
  exit 0;
}

sub DB::DB { 
}

1;