Context Navigation

Changeset 19782

Timestamp:

09/24/08 00:09:41 (5 years ago)

Author:

lopnor

Message:

lang/perl/App-Hachero: more tt friendly result

Location:

lang/perl/App-Hachero/trunk

Files:

r19768	r19782
12	12	my $tt = Template->new;
13	13	my $template < io $tt_file;
14		$tt->process(\$template, $context~~->result~~, \my $out);
	14	$tt->process(\$template, $context, \my $out);
15	15	$out > io $out_file;
16	16	}
17	17
18	18	1;
19
	19	__DATA__

r19768	r19782
17	17	my ($self, $args) = @_;
18	18	my $key = $self->key($args);
19		$self->data->{$key} \|\|= ~~$args~~;
20		$self->data->{$key}->~~{count}++~~;
	19	$self->data->{$key} \|\|= App::Hachero::Result::Data->new($args);
	20	$self->data->{$key}->count_up;
21	21	}
22	22
…	…
51	51	}
52	52
	53	package App::Hachero::Result::Data;
	54
	55	sub new {
	56	my ($class, $self) = @_;
	57	bless $self, $class;
	58	}
	59
	60	sub keys {
	61	my $self = shift;
	62	return sort {$a eq 'count' ? 1 : 0} keys %{$self};
	63	}
	64
	65	sub value {
	66	my ($self, $arg) = @_;
	67	return $self->{$arg};
	68	}
	69
	70	sub count_up {
	71	shift->{count}++;
	72	}
	73
53	74	1;