Commit da0c3228 authored by Eugene Kulesha's avatar Eugene Kulesha
Browse files

allow to pass parameters

parent 4b715c21
......@@ -97,7 +97,7 @@ my @COMMENTS =
=cut
sub new {
my ($caller, $slice) = @_;
my ($caller, $slice, $params) = @_;
my $class = ref($caller) || $caller;
......@@ -113,6 +113,10 @@ sub new {
my $self = bless {'feature_types' => $feature_types}, $class;
foreach my $p (sort keys %{$params || {}}) {
$self->{$p} = $params->{$p};
}
return $self;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment