use strict;
use warnings;
-use DBIx::Class::ResultSet;
-
-use base qw/DBIx::Class/;
-__PACKAGE__->load_components(qw/ResultSource/);
+use base 'DBIx::Class::ResultSource';
=head1 NAME
=cut
-sub from { $_[0]->name }
+sub from {
+ $_[0]->throw_exception('from() is not a setter method') if @_ > 1;
+ $_[0]->name;
+}
=head1 FURTHER QUESTIONS?