Revision 1aa3ce07
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/DB/Object.pm | ||
|---|---|---|
| 232 | 232 |
my @mutators = $meta->column_mutator_method_names; |
| 233 | 233 |
my @column_names = |
| 234 | 234 |
grep { $_->[0] && $_->[1] && !$_skip_fields_when_cloning{ $_->[0] } }
|
| 235 |
pairwise { [ $a, $b] } @accessors, @mutators;
|
|
| 235 |
pairwise { no warnings qw(once); [ $a, $b] } @accessors, @mutators;
|
|
| 236 | 236 |
|
| 237 | 237 |
my $clone = $class->new(map { my $method = $_->[0]; ($_->[1] => $self->$method) } @column_names);
|
| 238 | 238 |
|
Auch abrufbar als: Unified diff
SL::DB::Object: warnings