| #!/usr/bin/env perl | |
| 
 | |
| use lib 'lib'; | |
| 
 | |
| use SpitTest; | |
| 
 | |
| my $obj = SpitTest->new(); | |
| 
 | |
| $obj->cat("Persian "); | |
| print $obj->moose; | |
| 
 | |
| $obj->moose("dog"); | |
| print $obj->moose;
 |