package OurClass; use parent 'Badger::Base'; sub init { my ($self, $config) = @_; $self->{ arg1 } = $config->{ arg1 }; $self->{ arg2 } = $config->{ arg2 }; return $self; } sub arg1 { @_==2 and $_[0]->{arg1}=$_[1]; $_[0]->{ arg1 } } sub arg2 { @_==2 and $_[0]->{arg2}=$_[1]; $_[0]->{ arg2 } } sub printargs { my $self = shift; print $self->arg1, "\n", $self->arg2, "\n"; }