|
65
|
0 |
0 |
0 |
$self->{'color_info'} ||= do {
my $color = $self->color;
my($n_key, $hex_key, $r_key, $g_key, $b_key) = ($color . '_NAME', $color . '_HEX_COLOR', $color . '_RGB_COLOR_RED', $color . '_RGB_COLOR_GREEN', $color . '_RGB_COLOR_BLUE');
no strict 'refs';
+{'cid', $color, 'name', 'FuseBead::From::PNG::Const'->$n_key, 'hex_color', 'FuseBead::From::PNG::Const'->$hex_key, 'rgb_color', ['FuseBead::From::PNG::Const'->$r_key, 'FuseBead::From::PNG::Const'->$g_key, 'FuseBead::From::PNG::Const'->$b_key]}
} |