Select Code to Download

  
    sub Value_eq {
        my ($target_value) = @_;
...
    sub Negative {
        sub { $_[0] < 0 ? 0 : undef }
    }

    package Base;
    
...
    multimethod new => (Value_eq('Der'))      => sub {...}  
    multimethod new => (Value_eq('Der'), '$') => sub {...}  
    # etc.

  
    sub This::Class {
        my $target_value = caller;
        sub { $_[0] eq $target_value ? 0 : undef }
    }

    package Base;
    
...
    multimethod new => (This::Class)      => sub {...}  
    multimethod new => (This::Class, '$') => sub {...}  
    # etc.