sub new {
 my ($class, $options) = @_;
 if (!ref $options) {
  shift @_;
  $options = scalar @_ ? {@_} : {};
 }
#Some Code
bless $self, $class;

#Some Code
return $self;
}