for my $meth (qw/ WriteLine Select Add /) {
	my $sub = sub {
		my $self = shift;
		my $it = $self->OStream->$meth($_[0]);
		$self->Trace(_CallerStr($it));
		return $it;
	};
	no strict 'refs';
	*$meth = $sub;
}