package Community::Storage;

use strict;
use Data::Dumper qw/Dumper/;
our $VERSION = '1.0';

sub new {
	my $class = shift;
	my $self = {};
	bless($self, $class);
	$self->init(@_);
	return $self;
}

sub init {
	my $self = shift;
	if (@_) {
		for (keys %{@_}) {
			$self->{$_} = $_[0]->{$_};
		}
	}
}

sub param {
	my $self = shift;
	return $self->{$_[0]};
}

sub add {
	my $self = shift;
	my ($name, $value) = @_;
	$self->{$name} = $value;
}

sub update {
	my $self = shift;
	$self->{$_[0]} = $_[1];
}

sub delete {
	my $self = shift;
	delete($self->{$_[0]});
}

1;