if ((($before eq 'A' || $before eq 'B') && $after eq 'Z')
|| ($before eq 'Z' && ($after eq 'A' || $after eq 'B')))
{
# change from A|B <=> Z
}
####
if ($before eq 'Z' xor $after eq 'Z')
{
# change from A|B <=> Z
}
##
##
if (($before ne 'Z' && $after eq 'Z')
|| ($before eq 'Z' && $after ne 'Z'))
{
# change from A|B <=> Z
}
if (($before eq 'Z' || $after eq 'Z')
&& !($before eq 'Z' && $after eq 'Z'))
{
# change from A|B <=> Z
}
##
##
/usr/local/lib/perl/5.6.1/DateTime.pm: if ( $self->{tz}->is_floating xor $was_floating )