sub _new_from_dbic {
my ( $class, $resultset ) = @_;
if ( wantarray ) {
return $class->_wrap( $resultset->all() );
}
my $self = { _resultset => $resultset };
bless( $self, $class );
-