package String::Colored;

sub new { 
    my( $class, $string, $color )= @_;

    bless { string => $string, color => $color } => $class;
};

sub stringify {
    my( $self )= @_;
    colored( $self->{ name }, $self->{$color} );
}

sub eq {
    ...
}