Change 11752 by ams@ams-lustre on 2001/08/25 22:46:13
Subject: Re: 'can' with undefined subs
From: Tony Bowden <[EMAIL PROTECTED]>
Date: Sat, 25 Aug 2001 14:58:17 +0100
Message-Id: <[EMAIL PROTECTED]>
(Applied with minor modifications.)
Affected files ...
... //depot/perl/t/op/universal.t#14 edit
Differences ...
==== //depot/perl/t/op/universal.t#14 (xtext) ====
Index: perl/t/op/universal.t
--- perl/t/op/universal.t.~1~ Sat Aug 25 17:00:05 2001
+++ perl/t/op/universal.t Sat Aug 25 17:00:05 2001
@@ -24,7 +24,8 @@
package Alice;
@ISA=qw(Bob Female);
-sub drink {}
+sub sing;
+sub drink { return "drinking " . $_[1] }
sub new { bless {} }
$Alice::VERSION = 2.718;
@@ -44,8 +45,9 @@
package main;
-my $i = 2;
-sub test { print "not " unless shift; print "ok $i\n"; $i++; }
+{ my $i = 2;
+ sub test { print "not " unless shift; print "ok $i\n"; $i++; }
+}
$a = new Alice;
@@ -61,11 +63,13 @@
test ! $a->isa('Programmer');
-test $a->can("drink");
-
test $a->can("eat");
-
test ! $a->can("sleep");
+test my $ref = $a->can("drink"); # returns a coderef
+test $a->$ref("tea") eq "drinking tea"; # ... which works
+test $ref = $a->can("sing");
+eval { $a->sing };
+test $@; # ... but not if no actual subroutine
test (!Cedric->isa('Programmer'));
End of Patch.
