Select Code to Download

    package MyApp::DBI;
    use base 'Class::DBI';
...
       return;
    };
    1;

    package MyApp::DBI;
    use base 'DBIx::Class';
...
       return;
    };
    1;

    package MyApp::DBI;
    use base 'Class::DBI';
...
       return;
    };
    1;

    package MyApp::DBI;
    use base 'Class::DBI';
...
    __PACKAGE->has_many(tablelegs => 'MyApp::TableLegs');

    1;

   package MyApp::Gallery;
   use MyApp::DBI::Gallery;
...
          $self->{gallery}->$name(shift);
       };
   };