package Foo;

use strict;
use warnings;

INIT {
  {
    no strict 'refs';
    *Foo::bar = sub{ return 1; }; 
  }
}

sub new {
  return bless {}, shift;
}

##</code><code>##

<%init>
  use Foo;
</%init>

% print Foo->bar();