#!/usr/bin/perl
#use Mooix::Thing;

run sub {
	my $this=shift;

	my $objformat=$this->traceformat;
	
	my @ret;
	foreach ($this->expressions) {
		my @l=split(' ', $_, 5);
		if (grep { $_ eq $l[0] } @_) {
			if ($l[1] eq '*') {
				push @ret, $l[0]." \"".join(" ",@l[1..4])."\"";
			}
			else {
				push @ret, $l[0]." ".$l[1]." \"".join(" ",@l[2..4])."\"";
			}
		}
	}
	return @ret;
}
