11 / 12 lines covered (91.7%)
1unit module BDD::Behave::SharedExamples;23class SharedExampleRegistry {4 has %.examples;56 method register(Str:D $name, Callable:D $block) {7 %!examples{$name} = $block;8 $block;9 }1011 method lookup(Str:D $name) {12 %!examples{$name}:exists13 or die "Unknown shared examples: '$name'";14 %!examples{$name};15 }1617 method exists(Str:D $name) {18 %!examples{$name}:exists;19 }2021 method names {22 %!examples.keys.sort.List;23 }2425 method clear {26 %!examples = ();27 }28}2930my SharedExampleRegistry $REGISTRY .= new;3132our sub registry() is export(:DEFAULT) {33 $REGISTRY;34}