Your module works fine:

# ... all same above ...
package main;
use Data::Dumper;

my $t = test->new;

$t->mytype('foo=bar,foo2=bar2');

warn Dumper $t->mytype;

# Don't call $t->mtype('foo')

# Use correct method name!!
warn $t->get_option('foo');
[download]