# NOTE: Derived from ../blib/lib/Fan/Scan.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Fan::Scan;

#line 905 "../blib/lib/Fan/Scan.pm (autosplit into ../blib/lib/auto/Fan/Scan/summary.al)"
;#
;#
sub summary ($) {
	my $self = shift;
	my $count = 0;
	my $d;
	for $d (sort keys %{$self->{magic_array}}) {
		$count += scalar(@{$self->{magic_array}->{$d}});
	}
	print "summary: total $count entries.\n";
}

# end of Fan::Scan::summary
1;
