title: why naked block can not access out scope variable and function if packaged?
body: <p>I want to define a class and test with <code>is</code> in naked block like this:</p>
  
  <pre><code>use Test::More tests =&gt; 1;
  
  {
      package Foofle;
      use parent qw(Animal);
      sub sound { 'foof' }
  
      is(
          Foofle-&gt;speak,
          "A Foofle goes foof!\n",
          "An Animal subclass does the right thing"
      );
  }
  </code></pre>
  
  <p>I got error <code>Undefined subroutine &amp;Foofle::is called at t/Animal.t</code>, so if I add</p>
  
  <pre><code>use Test::More;
  </code></pre>
  
  <p>in naked block, then it runs ok.</p>
  
  <p>Or I move <code>is</code> outside of naked block, </p>
  
  <pre><code>use Test::More tests =&gt; 1;
  
  {
      package Foofle;
      use parent qw(Animal);
      sub sound { 'foof' }
  }
  
  is(
      Foofle-&gt;speak,
      "A Foofle goes foof!\n",
      "An Animal subclass does the right thing"
  );
  </code></pre>
  
  <p>it runs ok. But <strong>why naked block can not access out scope variable?</strong></p>