The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# vim: ts=2 sw=2 noexpandtab

# Logical XOR gate.
# a b out
# 0 0 0
# 1 0 1
# 0 1 1
# 1 1 0

package Ttl::Xor;
use Moose;
extends 'Ttl::Bin';

sub on_my_change {
	my $self = shift;
	$self->out( (($self->a()||0) != ($self->b()||0)) || 0 );
}

1;