DBIx-Class-Preview

 view release on metacpan or  search on metacpan

lib/DBIx/Class/Preview.pm  view on Meta::CPAN

108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
    my $class       = shift;
 
    my $table_class = 'DBIx::Class::ResultSource::Table::Previewed';
    $class->ensure_class_loaded($table_class), $class->table_class($table_class)
      unless $class->table_class->isa($table_class);
 
    my $ret = $class->next::method(@_);
        return $ret;
}
 
sub update {
    my $self = shift;
 
        # mark row as dirty
        if ($self->result_source->schema->preview_active() && $self->result_source->can('is_preview_source')) {
                $_[0] = {} unless ref $_[0];
                $_[0]->{dirty} = 1 unless defined $_[0]->{dirty};
        }
 
    return $self->next::method(@_);
}



( run in 0.931 second using v1.01-cache-2.11-cpan-49f99fa48dc )