diff --git a/snippets/sub-clone.pl b/snippets/sub-clone.pl index 4c14eef..bd2c433 100644 --- a/snippets/sub-clone.pl +++ b/snippets/sub-clone.pl @@ -1,9 +1,6 @@ use Sub::Clone; sub get_callback { return sub { "hi!" }; } - - my $first = get_callback(); - my $second = get_callback(); + my $first = get_callback(); my $second = get_callback(); my $third = clone_sub $second; - - warn "$first == $second"; # prints the same refaddr - warn "$third != $second"; # prints the diff refaddr + print "# $first == $second\n"; # same refaddr + print "# $third != $second\n"; # diff refaddr