Object::Deadly - An object that dies whenever examined |
Object::Deadly - An object that dies whenever examined
use Object::Deadly; use Test::Exception 'lives_ok'; # Test that a few functions inspect their parameters safely lives_ok { some_function( Object::Deadly->new ) } 'some_function'; lives_ok { Dumper( Object::Deadly->new ) } 'Data::Dumper';
This object is meant to be used in testing. All possible overloading and method calls die. You can pass this object into methods which are not supposed to accidentally trigger any potentially overloading.
This problem arose when testing the Data::Dump::Streamer manpage and the Carp manpage. The former was triggering overloaded object methods instead of just dumping their data. the Data::Dump::Streamer manpage is now safe for overloaded objects but it wouldn't have been unless it hadn't have been tested with a deadly, overloaded object.
TODO
Object::Deadly->new()
Object::Deadly->new( MESSAGE )
Object::Deadly->new
returns an Object::Deadly
object. Dies with a stack trace and a message when evaluated in any
context. The default message contains a stack trace from where the
object is created.
Object::Deadly->new_with( REFERENCE )
Object::Deadly->new_with
returns an Object::Deadly
object. Dies with a stack trace and a message when evaluated in any
context. The default message contains a stack trace from where the
object is created.
Object::Deadly->kill_function( FUNCTION NAME )
Object::Deadly->kill_function( FUNCTION NAME, DEATH CODE REF )
isa
,
can
, or similar and creates a function in the
Object::Deadly::_unsafe
class of the same name.
An optional second argument is a code reference to die with. This
defaults to Object::Deadly->can( '_death' )
.
Object::Deadly->kill_UNIVERSAL
Object::Deadly
object. This includes
a list of methods known to the author and then an inspection of
UNIVERSAL::.
Object::Deadly->get_death
Object::Deadly::_death
.
The following functions are all private and not meant for public consumption.
_death( $obj )
Object::Deadly::_safe
, extracts the message from inside of it,
and confess
's with it.
Joshua ben Jore, <jjore at cpan.org>
Please report any bugs or feature requests to bug-object-deadly at
rt.cpan.org
, or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html. I
will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Object::Deadly
You can also look for information at:
Yves Orton and Yitzchak Scott-Thoennes.
Copyright 2006 Joshua ben Jore, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Object::Deadly - An object that dies whenever examined |