in reply to Re: caller package and evalin thread caller package and eval
package User; sub find { my ($class, $query) = @_; die("Bad class") if !$class->isa('User'); ... } [download]
Someone would have to put effort into making that condition fail.