#!/usr/bin/perl -w
use strict;
require Modules.pl;
my @students = TestPkg::View->retrieve_all;
# returns the same error as search() would
warn Dumper(\@students);
####
package TestPkg::DBI;
use base 'Class::DBI::Oracle';
TestPkg::DBI->set_db('Main', 'dbi:Oracle:devdv', 'username', 'password');
package TestPkg::View;
use base TestPkg::DBI;
__PACKAGE__->table('course_enrollment');
__PACKAGE__->columns( All => qw/id username year term name_first name_last/ );
# and just for kicks, here's another package that's working just fine
# it points to a table, not a view
package TestPkg::Permissions;
use base TestPkg::DBI;
__PACKAGE__->table('permissions');
__PACKAGE__->columns( All => qw/id student_id access_level/);
####
CREATE OR REPLACE VIEW course_enrollment
AS SELECT [...]