sub getQuote { my $self = shift; return $self->{quote}; } sub setQuote { my $self = shift; my $quote = shift; unless (length($quote) < 255) { $self->{invalid} = 1 $self->{invalid_message} = "Quote is too long"; } } sub isValid { my $self = shift; return ! $self->{invalid}; }