t/13-padsv.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7
   8 sub Str::TYPEDSCALAR {
   9  my $buf = (caller(0))[2];
  10  open $_[1], '<', \$buf;
  11  ()
  12 }
  13
  14 {
  15  use Lexical::Types;
  16
  17  my Str $x;
  18  our $r = <$x>;
  19  is $r, __LINE__-2, 'trick for our - readline';
  20
  21  my Str $y;
  22  my $s = <$y>;
  23  is $s, __LINE__-2, 'trick for my - readline';
  24
  25  my $z = 7;
  26  is $z, 7, 'trick for others';
  27 }