my( $class ) = @_;
my $self = bless( {}, $class );