view release on metacpan or  search on metacpan

lib/App/AquariumHive/Plugin/AqHive/State.pm  view on Meta::CPAN

  );
}

sub data {
  my ( $self ) = @_;
  return {map {
    $_, $self->$_()
  } @attributes};
}

sub update {
  my ( $self, $data ) = @_;
  for (@attributes) {
    $self->$_($data->{$_}) if defined $data->{$_};
  }
  return $self;
}

1;

__END__