sub xxx {
        my $class = shift;
        my $args = ($#_ == 0) ? { %{ (shift) } } : { @_ };