sub accessor_name {
      my ($_class, $_column) = @_;

      my $_accessor = $_column;
      $_accessor = ucfirst $_accessor;
      $_accessor = 'Get' . $_accessor;
      $_accessor =~ s/id$/Id/smx;
      return $_accessor;
   }

   sub mutator_name {
      my ($_class, $_column) = @_;
      my $_mutator = $_column;
      $_mutator = ucfirst $_mutator;
      $_mutator = 'Set' . $_mutator;
      $_mutator =~ s/id$/Id/smx;
      return $_mutator;
   }


##</code><code>##

my $classBItr =  $classA->classBs();
while ( my $b = $classBItr->next() ) {
  ...
}

##</code><code>##

Can't locate object method "classB_id" via package "ClassAtoB" at /usr/lib/site_perl/5.8.5/Class/DBI/Iterator.pm line 77.