Navigation

Changeset 206

Timestamp:

04/04/07 19:01:36 (1 year ago)

Author:

ingy

Message:

 r3749@skinny-2:  ingy | 2007-04-04 18:04:20 +0900
 refo

Files:

r196	r206
6	6	use lib abs_path('lib');
7	7	use IO::All;
	8	use XXX;
8	9
9	10	# Get a list of all dists in system.
	11	XXX my @dists = map {
	12	$_->name;
	13	} grep {
	14	-e "$_/lib";
	15	} io('src')->All_Dirs;
	16
	17
10	18	# For each dist, find all modules in dist
11	19	# For each module:
…	…
16	24	# Link all src files into the base/ tree
17	25	# Report all collisions
	26
	27	__END__
18	28
19	29	@ARGV == 1 or die usage();

r205	r206
35	35	my $matched = $self->find_match(matched_block => $type) or next;
36	36	substr($self->{input}, 0, $matched->{end}, '');
37		my $func = "handle_$type";
38		$self->$func($matched);
	37	$self->handle_match($type, $matched);
39	38	last;
40	39	}
…	…
75	74	substr($self->{input}, 0, $end, '');
76	75	$type = $match->{type};
77		my $func = "handle_$type";
78		$self->$func($match);
	76	$self->handle_match($type, $match);
79	77	}
80	78	return;
…	…
105	103	}
106	104	return $matched;
	105	}
	106
	107	sub handle_match {
	108	my ($self, $type, $match) = @_;
	109	my $func = "handle_$type";
	110	$self->$func($match);
107	111	}
108	112