ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Devel-FindRef/t/01_padarray.t
Revision: 1.1
Committed: Fri May 16 06:41:37 2014 UTC (10 years ago) by root
Content type: application/x-troff
Branch: MAIN
CVS Tags: rel-1_46, rel-1_44, rel-1_45, rel-1_43, HEAD
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.1 BEGIN { $| = 1; print "1..1\n"; }
2    
3     use Devel::FindRef;
4    
5     sub xx {
6     \my $x
7     }
8    
9     my $y = xx;
10    
11     Devel::FindRef::track $y;
12    
13     print "ok 1\n";