
BEGIN { use_ok('Bla') };

use Bla;
use Data::Dumper;

my $bla = Bla->new;

$bla->name(blu);
$bla->role(asdasd);
print Dumper $bla;