Devil Killer Is Here MiNi Shell
MiNi SheLL

Current Path : /proc/thread-self/root/usr/local/man/man3/
Linux boscustweb5002.eigbox.net 5.4.91 #1 SMP Wed Jan 20 18:10:28 EST 2021 x86_64
Current File : //proc/thread-self/root/usr/local/man/man3/Object::Deadly.3
.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  | will give a
.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Object::Deadly 3"
.TH Object::Deadly 3 "2006-09-11" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "NAME"
Object::Deadly \- An object that dies whenever examined
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 2
\&  use Object::Deadly;
\&  use Test::Exception 'lives_ok';
.Ve
.PP
.Vb 3
\&  # 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';
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
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.
.PP
This problem arose when testing Data::Dump::Streamer and
Carp. The former was triggering overloaded object methods instead
of just dumping their data. Data::Dump::Streamer is now safe for
overloaded objects but it wouldn't have been unless it hadn't have
been tested with a deadly, overloaded object.
.SH "DEALING WITH DEATH"
.IX Header "DEALING WITH DEATH"
\&\s-1TODO\s0
.SH "METHODS"
.IX Header "METHODS"
.ie n .IP """Object::Deadly\->new()""" 4
.el .IP "\f(CWObject::Deadly\->new()\fR" 4
.IX Item "Object::Deadly->new()"
.PD 0
.ie n .IP """Object::Deadly\->new( MESSAGE )""" 4
.el .IP "\f(CWObject::Deadly\->new( MESSAGE )\fR" 4
.IX Item "Object::Deadly->new( MESSAGE )"
.PD
The class method \f(CW\*(C`Object::Deadly\->new\*(C'\fR returns an \f(CW\*(C`Object::Deadly\*(C'\fR
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.
.ie n .IP """Object::Deadly\->new_with( REFERENCE )""" 4
.el .IP "\f(CWObject::Deadly\->new_with( REFERENCE )\fR" 4
.IX Item "Object::Deadly->new_with( REFERENCE )"
The class method \f(CW\*(C`Object::Deadly\->new_with\*(C'\fR returns an \f(CW\*(C`Object::Deadly\*(C'\fR
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.
.ie n .IP """Object::Deadly\->kill_function( FUNCTION NAME )""" 4
.el .IP "\f(CWObject::Deadly\->kill_function( FUNCTION NAME )\fR" 4
.IX Item "Object::Deadly->kill_function( FUNCTION NAME )"
.PD 0
.ie n .IP """Object::Deadly\->kill_function( FUNCTION NAME, DEATH CODE REF )""" 4
.el .IP "\f(CWObject::Deadly\->kill_function( FUNCTION NAME, DEATH CODE REF )\fR" 4
.IX Item "Object::Deadly->kill_function( FUNCTION NAME, DEATH CODE REF )"
.PD
The class method kill_function accepts a function name like \f(CW\*(C`isa\*(C'\fR,
\&\f(CW\*(C`can\*(C'\fR, or similar and creates a function in the
\&\f(CW\*(C`Object::Deadly::_unsafe\*(C'\fR class of the same name.
.Sp
An optional second argument is a code reference to die with. This
defaults to \f(CW\*(C`Object::Deadly\->can( '_death' )\*(C'\fR.
.ie n .IP """Object::Deadly\->kill_UNIVERSAL""" 4
.el .IP "\f(CWObject::Deadly\->kill_UNIVERSAL\fR" 4
.IX Item "Object::Deadly->kill_UNIVERSAL"
This class method kills all currently known \s-1UNIVERSAL\s0 functions so
they can't be called on a \f(CW\*(C`Object::Deadly\*(C'\fR object. This includes
a list of methods known to the author and then an inspection of
\&\s-1UNIVERSAL::\s0.
.ie n .IP """Object::Deadly\->get_death""" 4
.el .IP "\f(CWObject::Deadly\->get_death\fR" 4
.IX Item "Object::Deadly->get_death"
Returns the function \f(CW\*(C`Object::Deadly::_death\*(C'\fR.
.SH "PRIVATE FUNCTIONS"
.IX Header "PRIVATE FUNCTIONS"
The following functions are all private and not meant for public
consumption.
.ie n .IP """_death( $obj )""" 4
.el .IP "\f(CW_death( $obj )\fR" 4
.IX Item "_death( $obj )"
This function temporarilly reblesses the object into
\&\f(CW\*(C`Object::Deadly::_safe\*(C'\fR, extracts the message from inside of it,
and \f(CW\*(C`confess\*(C'\fR's with it.
.SH "AUTHOR"
.IX Header "AUTHOR"
Joshua ben Jore, \f(CW\*(C`<jjore at cpan.org>\*(C'\fR
.SH "BUGS"
.IX Header "BUGS"
Please report any bugs or feature requests to \f(CW\*(C`bug\-object\-deadly at
rt.cpan.org\*(C'\fR, or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Object\-Deadly>. I
will be notified, and then you'll automatically be notified of
progress on your bug as I make changes.
.SH "SUPPORT"
.IX Header "SUPPORT"
You can find documentation for this module with the perldoc command.
.PP
.Vb 1
\&  perldoc Object::Deadly
.Ve
.PP
You can also look for information at:
.IP "* AnnoCPAN: Annotated \s-1CPAN\s0 documentation" 4
.IX Item "AnnoCPAN: Annotated CPAN documentation"
<http://annocpan.org/dist/Object\-Deadly>
.IP "* \s-1CPAN\s0 Ratings" 4
.IX Item "CPAN Ratings"
<http://cpanratings.perl.org/d/Object\-Deadly>
.IP "* \s-1RT:\s0 \s-1CPAN\s0's request tracker" 4
.IX Item "RT: CPAN's request tracker"
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Object\-Deadly>
.IP "* Search \s-1CPAN\s0" 4
.IX Item "Search CPAN"
<http://search.cpan.org/dist/Object\-Deadly>
.SH "ACKNOWLEDGEMENTS"
.IX Header "ACKNOWLEDGEMENTS"
Yves Orton and Yitzchak Scott\-Thoennes.
.SH "COPYRIGHT & LICENSE"
.IX Header "COPYRIGHT & LICENSE"
Copyright 2006 Joshua ben Jore, all rights reserved.
.PP
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Creat By MiNi SheLL
Email: devilkiller@gmail.com