view release on metacpan or  search on metacpan

t/02-base_me.t  view on Meta::CPAN

		options => {
			memory_on => 1
		},
		att => 'memory_on',
		value => '1'
	});
};

done_testing();

sub update_options {
    my $args = shift;
	my $fields = Eliza::Chatbot->new($args->{options});
	my $att = $args->{att};
	# check its value
	is($fields->$att, $args->{value}, "$att set with correct value");
}