Re^3: Test::Exception extension with (evil?) overloading

Then what was the following code you posted supposed to do anyway?

my $result = lives_ok {$o->answer} 'answer worked';
is $result, 42, 'answer returned 42';
[download]

Because the second snippet I posted behaves exactly like that.

Makeshifts last the longest.

Comment on Re^3: Test::Exception extension with (evil?) overloading Download Code

Replies are listed 'Best First'.
Re^4: Test::Exception extension with (evil?) overloading by adrianh (Chancellor) on Jan 18, 2003 at 17:55 UTC
Then what was the following code you posted supposed to do anyway? I guess it was intended to prove what an idiot I am when I don't run my code examples. Excuse me while I go bang my head against the wall (and then fix the example :-). <bang, bang, bang ... > Ah, that's better. Example should read: `my $result; lives_ok {$result = $o->answer} 'answer worked'; is $result, 42, 'answer returned 42';` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Test::Exception extension with (evil?) overloading
by adrianh (Chancellor) on Jan 18, 2003 at 17:55 UTC

Then what was the following code you posted supposed to do anyway?

I guess it was intended to prove what an idiot I am when I don't run my code examples. Excuse me while I go bang my head against the wall (and then fix the example :-).

<bang, bang, bang ... >

Ah, that's better. Example should read:

my $result;
lives_ok {$result = $o->answer} 'answer worked';
is $result, 42, 'answer returned 42';
[download]

[reply]
[d/l]