expect.pl sub expect (&@) { my ($effector, $comparator, $state) = @_; my ($before, undef, $after) = map { $_->() } ($state, $effector, $state); cmp_ok $before, $comparator, $after; } sub make_changes (&) { my ($actual) = @_; ("!=", $actual…