3 use warnings FATAL => 'all';
4 use Function::Parameters qw(:strict);
5 use Test::More tests => 2;
11 $self->prefix . $uniq++
19 my $o = bless {prefix => "foo_" }, main::;
20 is $o->fresh_name, 'foo_0';
23 # local $TODO = 'do not know how to handle the scope change in line 7';