Select Code to Download

sub save {
    ...
        $item->update() if $item->is_dirty();
    ...
}

sub update_if_dirty {
    ...
    return if ! $self->is_dirty();
    ...
}