sub BUILDARGS {
    my $class = shift;
    my %args = ref $_[0] ?  %{$_[0]} : @_;
    $args{code} = uc $args{code} if exists $args{code};
    return \%args;
}