view release on metacpan or  search on metacpan

lib/IMDB/Local/DB/BaseObject.pm  view on Meta::CPAN

    }

    # update our fields so they match
    for my $key (keys %{$args}) {
	my $value=$args->{$key};
	$self->$key($value);
    }
    return(1);
}

sub update($@)
{
    my $self=shift;
    my $args={@_};
    my %updates;
    
    for my $key (keys %{$args}) {
	my $value=$args->{$key};
	my $cur=$self->get($key);
	
	if ( defined($cur) != defined($value) ) {