view release on metacpan or  search on metacpan

lib/Keystone/Resolver/DB/Object.pm  view on Meta::CPAN

277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
    my $ref = $virtual{$field};
    return undef if !defined $ref;
    my($linkfield, $linkclass, $linkto) = @$ref;
    my $linkid = $this->field($linkfield);
 
    return ($linkclass, $linkto, $linkid, $linkfield);
}
 
 
# Returns the number of fields modified, dies on error
sub update {
    my $this = shift();
    my(%maybe_data) = @_;
 
    my %data;
    foreach my $key (keys %maybe_data) {
        $data{$key} = $maybe_data{$key}
            if (!defined $this->field($key) ||
                $maybe_data{$key} ne $this->field($key));
    }