Changeset Navigation

Changeset 916

Timestamp:

06/07/06 16:44:25

Author:

miyagawa

Message:

pass args more

Files:

r915	r916
51	51	$self->rewrite(sub { $args->{entry}->link }, sub { $args->{entry}->link(@_) }, $args);
52	52	for my $enclosure ($args->{entry}->enclosures) {
53		$self->rewrite(sub { $enclosure->url }, sub { $enclosure->url( URI->new(@_) ) });
	53	$self->rewrite(sub { $enclosure->url }, sub { $enclosure->url( URI->new(@_) ) }, $args);
54	54	}
55	55	}
56	56
57	57	sub rewrite {
58		my($self, $getter, $callback) = @_;
	58	my($self, $getter, $callback, $args) = @_;
59	59
60	60	my $loop;