package UR::Object::Type::AccessorWriter::Sum;

use strict;
use warnings;
require UR;
our $VERSION = "0.392"; # UR $VERSION;

sub calculate {
    my $self = shift;
    my $object = shift;
    my $properties = shift;
    my $sum = 0;
    for my $property (@$properties) {
        $sum += $object->$property
    }   
    return $sum;
};

1;

=pod

=head1 NAME

UR::Object::Type::AccessorWriter::Sum - Implements a calculation accessor which sums the values of its properties

=cut