use strict;
use Cvs;


my $cvs = Cvs->new('workdir' => '/projects/millerb/SR/vhdl'
                   ,'cvsroot'=>':pserver:millerb@172.20.175.10:/hwcvs'
                   ,'password' => '********'
                   ) or die $Cvs::ERROR;
print "CVS ERROR ($Cvs::ERROR)\n";
print "CVS OBJ $cvs\n";
print "-----GETTING STATUS----\n";
my $status_obj = $cvs->status('common/scripts/release/regress.pl');
print "-----COMPLETED STATUS----\n";
print "status_obj $status_obj\n";
my $status = $status_obj->status();
print "$status_obj Status $status\n";

##</code><code>##

millerite:release$ perl cvs_test.pl
CVS ERROR ()
CVS OBJ Cvs=HASH(0x1490d78)
-----GETTING STATUS----
-----COMPLETED STATUS----
status_obj Cvs::Result::Base=HASH(0x176d010)
Can't locate object method "status" via package "Cvs::Result::Base" at cvs_test.pl line 61.
millerite:release$