sub type { 

   my $self = shift; 
   return 'SQL'; 
}