]> git.vpit.fr Git - perl/modules/Variable-Temp.git/commitdiff
Test 'temp $obj->meth;'
authorVincent Pit <vince@profvince.com>
Wed, 1 Apr 2015 17:17:54 +0000 (14:17 -0300)
committerVincent Pit <vince@profvince.com>
Wed, 1 Apr 2015 17:18:04 +0000 (14:18 -0300)
t/21-lvalue-sub.t

index f1ed334fb8fe3a2d841683a6e60085633e4c8102..42aed9750114c770647eb79a9f5a13c57dd94588 100644 (file)
@@ -9,7 +9,7 @@ use Test::More;
 
 BEGIN {
  if ("$]" >= 5.016) {
-  plan tests => 10;
+  plan tests => 12;
  } else {
   plan skip_all => 'perl 5.16 required to have \$ proto accept sub entries';
  }
@@ -67,3 +67,10 @@ $x->is_value(1);
 }
 
 $x->is_value(1);
+
+{
+ temp $x->value;
+ $x->is_value(undef);
+}
+
+$x->is_value(1);