sub new {

        my $shrax       = shift;
        my $class       = ref $shrax || $shrax;