gistfile1.pl

[tbrannon@devel DataModel]$ perl play.pl
DBI::db=HASH(0xa42757c) at play.pl line 22.
$VAR1 = [
          bless( {
                   'emp_no' => '110022',
                   'dept_no' => 'd001',
                   'from_date' => '1985-01-01',
                   'dept_name' => 'Marketing',
                   'to_date' => '1991-10-01'
                 }, 'EMP::AutoView::EMP::Dept_Manager_JOIN_departments_role' )
        ];
$VAR1 = bless( {
                 'dept_no' => 'd001',
                 'dept_name' => 'Marketing'
               }, 'EMP::Departments' );