t/foreign/Method-Signatures-Simple/RT80507.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4 use Function::Parameters qw(:strict);
   5 use Test::More tests => 2;
   6
   7 {
   8     my $uniq = 0;
   9
  10     method fresh_name() {
  11         $self->prefix . $uniq++
  12     }
  13 }
  14
  15 method prefix() {
  16     $self->{prefix}
  17 }
  18
  19 my $o = bless {prefix => "foo_" }, main::;
  20 is $o->fresh_name, 'foo_0';
  21
  22 #TODO: {
  23 #    local $TODO = 'do not know how to handle the scope change in line 7';
  24     is __LINE__, 24;
  25 #}
  26
  27 __END__
  28