Select Code to Download

{
   package Smart::Dispatch::ConditionList;
...
      ref $_[0] eq 'CODE' ? 'dispatch' : 'value';
   }
}

use 5.010;
use strict;
...
# call dispatch table on '1000' but only if the dispatch table
# has an entry that covers value '4'.
say $dispatch.1000 if $dispatch ~~ 4;