sub new{ bless {}, $_[0] }
sub twizzle{ my( $self, $twizzleFactor ) = @_; ref( $self ) = __PACKAGE__ or die; $twizzleFactor > 1.0 && $twizzleFactor < 9.0 or die; return 123.4567 }