Re^2: Any way to access the contents of a block eval?

by adrianh (Chancellor)

on Oct 12, 2007 at 12:56 UTC ( [id://644467]=note: print w/replies, xml )

Need Help??

However, I don't see the use of this. The contents of an eval BLOCK doesn't change. What's the point of printing out something you already know?

I was thinking of nicer default diagnostic messages for Test::Exception - so instead of writing:

lives_ok { $o->something } 'something worked';
[download]

you could just write

lives_ok { $o->something };
[download]

And still get a vaguely nice diagnostic

ok - $o->something lived
[download]

Comment on Re^2: Any way to access the contents of a block eval? Select or Download Code

Replies are listed 'Best First'.
Re^3: Any way to access the contents of a block eval? by ikegami (Patriarch) on Oct 12, 2007 at 17:00 UTC
In that case, chromatic's code simplifies to `use B::Deparse qw( ); my $deparse = B::Deparse->new(); sub lives_ok(&;$) { my ($code, $desc) = @_; $desc = $deparse->coderef2text($code) if !defined($desc); return Text::Exception::lives_ok($code, $desc); }` [download] Be careful to avoid accidently overriding your own functions with those from the module you are extending.	[reply] [d/l]
Re^4: Any way to access the contents of a block eval? by adrianh (Chancellor) on Oct 16, 2007 at 13:16 UTC
D'oh! I knew about that.	[reply]
Re^3: Any way to access the contents of a block eval? by chromatic (Archbishop) on Oct 12, 2007 at 16:29 UTC
Ah, so you already have the sub reference. Even easier.	[reply]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://644467]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others wandering the Monastery: (4)

As of 2024-04-19 14:55 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found