use strict;
use warnings;
use Method::Signatures::Simple;
use Test::More tests => 2;
{
my $uniq = 0;
method fresh_name() {
$self->prefix . $uniq++
}
}
method prefix() {
$self->{prefix}
}
my $o = bless {prefix => "foo_" }, main::;
is $o->fresh_name, 'foo_0';
TODO: {
local $TODO = 'do not know how to handle the scope change in line 7';
is __LINE__, 24;
}
__END__