sub new {
...
... ref $type || $type;
...
}
[download]

is an antipattern. Odd that you would use such when trying to show a pattern. {grin}