view release on metacpan or  search on metacpan

lib/DBIx/Class/ResultSource/Table/Previewed.pm  view on Meta::CPAN

    $new_source->add_column('deleted' => { data_type => 'integer', default_value => 0 });
    $new_source->preview_table($self->from . '_preview');
    my $target_class = $new_source->result_class . '::preview';
    $self->inject_base(
        $target_class => $new_source->result_class
        );
    $new_source->result_class( $target_class );
    $target_class->result_source_instance($new_source)
        if $target_class->can('result_source_instance');

    $new_source->relationship_info($_)->{attrs}{cascade_delete} = 0
			for $new_source->relationships;
    my $new_source_name =
			$self->source_name . '::preview';
    $schema->register_extra_source( $new_source_name => $new_source );
	}
  return $self->next::method(@_);
}

sub previewed {
  my ( $self ) = @_;