| Subject: | 'continue_with' is completely broken |
This is what the documentation says:
continue_with
Return from a restart with a specific value.
with_handlers {
my $foo = restart_case {
Exception->new
}
# foo is 500
}
handle(Exception => continue_with { 500 });
The first problem with this is that ConditionSystem doesn't actually
export continue_with:
$ perl -e 'use ConditionSystem qw(continue_with);'
"continue_with" is not exported by the ConditionSystem module at -e line 1.
BEGIN failed--compilation aborted at -e line 1.
The second problem is that the example in the documentation doesn't work
as advertised:
$ cat continue_with.pl
#!perl
use warnings;
use strict;
use ConditionSystem;
{
package Exception;
sub new { bless {}, $_[0] }
}
with_handlers {
my $foo = restart_case {
Exception->new
};
# foo is 500
print "foo is $foo\n";
}
handle(Exception => ConditionSystem::continue_with { 500 });
__END__
$ perl continue_with.pl
foo is CODE(0x9150690)
(Expected output: "foo is 500")