indicatesource => {type => BOOLEAN,
default => 1,
},
+ binary_to_source_cache => {type => HASHREF,
+ optional => 1,
+ },
},
);
my %status;
$status{source} = binary_to_source(binary=>[split /\s*,\s*/, $status{package}],
source_only => 1,
+ exists $param{binary_to_source_cache}?
+ (cache =>$param{binary_to_source_cache}):(),
);
$status{"package"} = 'unknown' if ($status{"package"} eq '');