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($self, @_);
	return $self;
}

sub init {
	my $self = shift;

	print Dumper \@_;
	if (@_) {
		for (keys %{@_}) {
			$self->{$_} = $_[0]->{$_};
		}
	}
}

sub param {
	my $self = shift;
	return $self->{@_};
}

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

1;