130 |
sub add { |
sub add { |
131 |
my ($self,$id,$ds) = @_; |
my ($self,$id,$ds) = @_; |
132 |
|
|
133 |
|
die "need input" unless $self->input; |
134 |
|
|
135 |
my $log = $self->_get_logger; |
my $log = $self->_get_logger; |
136 |
$log->debug("id: $id ds = ",sub { dump($ds) }); |
$log->debug("id: $id ds = ",sub { dump($ds) }); |
137 |
|
|
170 |
$xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>}; |
$xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>}; |
171 |
|
|
172 |
$self->{stats}->{attr}->{$tag}++; |
$self->{stats}->{attr}->{$tag}++; |
173 |
|
$self->{stats}->{input}->{ $self->input }->{$tag}++; |
174 |
|
|
175 |
$data->{$tag} = $vals; |
$data->{$tag} = $vals; |
176 |
} |
} |