t/12-padsv.t

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