sub new {
    my $class = shift;
    my %args = @_; 

##</code><code>##

sub new {
   my ($class,%args) = @_;
   my $package = ref($class) || $class || confess "classless constructor";