package User;

sub find {
    my ($class, $query) = @_;
    die("Bad class") if !$class->isa('User');
    ...
}