sub new {
...
... ref $type || $type;
...
}