<![CDATA[
#!perl -w
use strict;
# perl -c map.pl
# this program is not designed to run, it is a conceptual test
# DNA specific type specified based on morphology
# See http://www.buzzle.com/articles/different-types-of-bacteria.html
my $type = "Dictyoglomi";
my $bac = Bacteria->new($type);
my @plasmid = $bac->get_plasmids( );
my @vector = ( );
foreach my $plasmid (@ plasmid) {
push @vector, $plasmid->get_vector( );
}
# from the Object Discussion
my %restriction_enzymes = RestrictionEnzymes->all_enzymes();
my @enzyme = ( );
foreach my $re (keys %restriction_enzymes) {
foreach my $vector (@vector) {
if ( $vector->has_enzyme($re) ) {
push @enzyme, $vector->cut($re);
}
}
}
foreach my $enzyme (@enzyme) {
print $enzyme->map( ) if $enzyme->is_recombinant( );
}
]]>