X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSafe%2FIsa.pm;h=651b6ac0e6cbf509755066ed709ed600d2bf5573;hb=d8e51091604eeec2780fb5a15a8bf4912d5b87ef;hp=fb3c5ab72a2764a22e091541d9cb833b9084d254;hpb=9d3d6b490907e28992f225d4527a0460acb3c1d2;p=p5sagit%2FSafe-Isa.git diff --git a/lib/Safe/Isa.pm b/lib/Safe/Isa.pm index fb3c5ab..651b6ac 100644 --- a/lib/Safe/Isa.pm +++ b/lib/Safe/Isa.pm @@ -5,7 +5,7 @@ use warnings FATAL => 'all'; use Scalar::Util (); use Exporter 5.57 qw(import); -our $VERSION = '1.000008'; +our $VERSION = '1.000009'; our @EXPORT = qw($_call_if_object $_isa $_can $_does $_DOES $_call_if_can); @@ -160,14 +160,17 @@ returns nothing. $maybe_an_object->$_does('Foo'); If called on an object, calls C on it and returns the result, otherwise -returns nothing. +returns nothing. If the C method does not exist, returns nothing rather +than failing. =head2 $_DOES $maybe_an_object->$_DOES('Foo'); If called on an object, calls C on it and returns the result, otherwise -returns nothing. +returns nothing. On perl versions prior to 5.10.0, the built in core C +method doesn't exist. If the method doesn't exist, this will fall back to +calling C just like the core C method. =head2 $_call_if_object