$s = Sentence->new("This is a test.");
print ref($s); # Prints Sentence::Declarative

$s = Sentence->new("Is this a test?");
print ref($s); # Prints Sentence::Interrogative

$s = Sentence->new("Duck!");
print ref($s); # Prints Sentence::Imperative