package My::Browser; use base 'My::TT'; my $_cache; sub pager_class { my $class = ref $_[0] || $_[0]; $_cache->{$class} = $_[1] if @_ > 1; return $_cache->{$class}; } BEGIN { (my $temp = __PACKAGE__->pager_class()) =~ s#::#/#igr; require "$temp.pm"; } package Physemp::Admin::Clients; use base 'My::Browser'; use strict; use warnings; use Physemp::Model::Account; __PACKAGE__->pager_class('Physemp::Model::Account');