DBIx-Class-Preview
view release on metacpan or search on metacpan
lib/DBIx/Class/Preview.pm view on Meta::CPAN
108109110111112113114115116117118119120121122123124125126127128
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 )