#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;

	my $caller=$_{caller};
	$this->caller($caller);
	$this->msg('ring');
}
