#!/usr/bin/perl
#use Mooix::Thing;
#use Mooix::Verb;
run sub {
	my $this=shift;
	%_=@_;
	
	if ($_{avatar} != $this->owner) {
		exit Mooix::Verb::SKIP;
	}

	if (lc $_{quote} eq 'stderr') {
		unlink("session") || $this->croak("unlink session: $!");
		$_{session}->write("Using srderr.");
	}
	elsif (lc $_{quote} eq 'session') {
		$this->session($_{session});
		$_{session}->write("Using this session.");
	}
	else {
		fail 'Usage: redir "srderr|session"';
	}
}
