|
#!/usr/bin/env perl
BEGIN{
push @INC , (dirname $0). '/../../lib' ;
}
eval {
my $test = shift ;
if ( $test == 1){
my $seq =new InSilicoSpectro::InSilico::Sequence( AC => 'myAC' , sequence => 'ARGHIAMDEAD' );
print $seq ;
my $seq2 =new InSilicoSpectro::InSilico::Sequence( $seq );
print "\nClone:\n$seq2\n" ;
}
if ( $test == 2){
my $bpseq =Bio::Perl::get_sequence( 'swiss' , 'ROA1_HUMAN' ) or die "cannot access [ROA1_HUMAN] on remote DB" ;
my $seq =InSilicoSpectro::InSilico::Sequence->new( $bpseq );
print $seq ;
print "Length=" , $seq ->getLength(), "\n" ;
}
};
if ($@){
carp($@);
}
|