package Model::Classloader; sub new { my $pkg = shift; return bless {@_}, $pkg } sub class { my $self = shift; my $class = shift; my $fullname = $self->{namespace} . "::$class"; eval "require $fullname;"; return $fullname; }