__PACKAGE__->load_components(qw/AccessorGroup/);
__PACKAGE__->mk_group_accessors('simple' =>
- qw/_columns _primaries name resultset_class result_class storage/);
+ qw/_columns _primaries name resultset_class result_class schema/);
=head1 NAME
sub resultset {
my $self = shift;
- my $rs_class = $self->resultset_class;
- eval "use $rs_class;";
- return $rs_class->new($self);
+ return $self->resultset_class->new($self);
}
=head2 has_column
return @{shift->_primaries||[]};
}
+=head2 from
+
+Returns the FROM entry for the table (i.e. the table name)
+
+=cut
+
+sub from { shift->name; }
+
+=head2 storage
+
+Returns the storage handle for the current schema
+
+=cut
+
+sub storage { shift->schema->storage; }
1;