Make use of TclOO::ext.