replaced // operator with defined() call in Role::User to become back-compatible with perl < 5.10