Select Code to Download

use ManVideo;
my $mv = new ManVideo( DB => $dbhRef );
$mv -> newVideoRecord ( Trainer => "someone", Year => 2011, VideoType 
+=> "training" );
$mv -> save();

my $aud = new ManAudio;
$aud -> newAudioRecord( ..., AudioType => "meeting" ) ;# implement by 
+ManVideo::newVideoRecord;