]> git.vpit.fr Git - perl/modules/Sub-Op.git/commitdiff
Test storing the reference to a keyword
authorVincent Pit <vince@profvince.com>
Wed, 14 Apr 2010 21:08:26 +0000 (23:08 +0200)
committerVincent Pit <vince@profvince.com>
Wed, 14 Apr 2010 21:08:26 +0000 (23:08 +0200)
t/10-base.t

index 2acce9a8a4fca9a02ff2972eeb7aee78db8c12fb..6e6b5d12eeb0f0877693bde8e734e81bca103666 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 
 use blib 't/Sub-Op-LexicalSub';
 
-use Test::More tests => (1 + 3) * 15 + (1 + 2 * 3) * 2 + 2 * 28;
+use Test::More tests => (1 + 3) * 16 + (1 + 2 * 3) * 2 + 2 * 29;
 
 our $called;
 
@@ -128,6 +128,16 @@ fetch 1, do { no strict 'refs'; *{__PACKAGE__.'::fetch'}{CODE} }, 2
 ----
 fetch # () # [ 1, undef, 2 ]
 ####
+my ($cb, $err);
+BEGIN {
+ $cb = do { no strict 'refs'; \&{__PACKAGE__.'::cvref'} };
+ eval { $cb->() };
+ $err = $@ =~ /^Undefined subroutine &main::cvref/ ? undef : $@;
+}
+cvref $err;
+----
+cvref # () # [ undef ]
+####
 our $scalr = 1;
 scalr $scalr;
 ----