All pastes #58669 Raw Edit

Unnamed

public text v1 · immutable
#58669 ·published 2006-05-24 17:41 UTC
rendered paste body
#!/usr/bin/perl

package DBSchema::People;
use base 'DBIx::Class';
use strict;
use warnings;

__PACKAGE__->load_components(qw/ Core/);
__PACKAGE__->table('people');
__PACKAGE__->add_columns(qw/id app_id first middle last address1 address2 address3 city state zip/);
__PACKAGE__->set_primary_key('id');


package DBSchema;
use base qw/DBIx::Class::Schema/;
__PACKAGE__->load_classes(qw/People/);



# ---------------------------------------------------------------------------
OUTPUT RESULTS:

Can't locate DBSchema/People.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at (eval 49) line 2.
BEGIN failed--compilation aborted at (eval 49) line 2.
Can't locate object method "result_source_instance" via package "DBSchema/People" (perhaps you forgot to load "DBSchema/People"?) at /usr/lib/perl5/site_perl/5.8.8/DBIx/Class/Schema.pm line 75.

shell returned 2