Branch Coverage

blib/lib/FuseBead/From/PNG/Bead.pm
Criterion Covered Total %
branch 0 10 0.0


line true false branch
16 0 0 ref $_[0] eq 'HASH' ? :
22 0 0 unless scalar grep({$_ eq $hash->{'color'};} ('BLACK', 'BLUEBERRY_CREAM', 'BLUSH', 'BRIGHT_GREEN', 'BROWN', 'BUBBLEGUM', 'BUTTERSCOTCH', 'CHEDDER', 'CLEAR', 'CRANAPPLE', 'CREAM', 'CYAN', 'DARK_BLUE', 'DARK_GREEN', 'DARK_GREY', 'EVERGREEN', 'GLOW_GREEN', 'GOLD', 'GREY', 'HOT_CORAL', 'KIWI_LIME', 'LAVENDER', 'LIGHT_BLUE', 'LIGHT_BROWN', 'LIGHT_GREEN', 'LIGHT_GREY', 'LIGHT_PINK', 'MAGENTA', 'NEON_GREEN', 'NEON_ORANGE', 'NEON_PINK', 'NEON_YELLOW', 'ORANGE', 'PARROT_GREEN', 'PASTEL_BLUE', 'PASTEL_GREEN', 'PASTEL_LAVENDER', 'PASTEL_YELLOW', 'PEACH', 'PEARL_CORAL', 'PEARL_GREEN', 'PEARL_LIGHT_BLUE', 'PEARL_LIGHT_PINK', 'PEARL_YELLOW', 'PERIWINKLE_BLUE', 'PINK', 'PLUM', 'PRICKLY_PEAR', 'PURPLE', 'RASPBERRY', 'RED', 'RUST', 'SAND', 'SILVER', 'TAN', 'TOOTHPASTE', 'TURQUOISE', 'WHITE', 'YELLOW'))
28 0 0 !$hash->{'meta'} || ref $hash->{'meta'} ne 'HASH' ? :
46 0 0 if (defined $val)
47 0 0 unless scalar grep({$_ eq $val;} ('BLACK', 'BLUEBERRY_CREAM', 'BLUSH', 'BRIGHT_GREEN', 'BROWN', 'BUBBLEGUM', 'BUTTERSCOTCH', 'CHEDDER', 'CLEAR', 'CRANAPPLE', 'CREAM', 'CYAN', 'DARK_BLUE', 'DARK_GREEN', 'DARK_GREY', 'EVERGREEN', 'GLOW_GREEN', 'GOLD', 'GREY', 'HOT_CORAL', 'KIWI_LIME', 'LAVENDER', 'LIGHT_BLUE', 'LIGHT_BROWN', 'LIGHT_GREEN', 'LIGHT_GREY', 'LIGHT_PINK', 'MAGENTA', 'NEON_GREEN', 'NEON_ORANGE', 'NEON_PINK', 'NEON_YELLOW', 'ORANGE', 'PARROT_GREEN', 'PASTEL_BLUE', 'PASTEL_GREEN', 'PASTEL_LAVENDER', 'PASTEL_YELLOW', 'PEACH', 'PEARL_CORAL', 'PEARL_GREEN', 'PEARL_LIGHT_BLUE', 'PEARL_LIGHT_PINK', 'PEARL_YELLOW', 'PERIWINKLE_BLUE', 'PINK', 'PLUM', 'PRICKLY_PEAR', 'PURPLE', 'RASPBERRY', 'RED', 'RUST', 'SAND', 'SILVER', 'TAN', 'TOOTHPASTE', 'TURQUOISE', 'WHITE', 'YELLOW'))