#!perl -T
use strict;
use warnings;
use lib 't';
use Test::More qw(no_plan);
use MyClass;
my $obj = MyClass->new({ load_plugins => [qw/ Attribute /] });
is $obj->call( test => 'test set'), 'attribute return';
is $obj->{test_str}, 'test set';
#!perl -T
use strict;
use warnings;
use lib 't';
use Test::More qw(no_plan);
use MyClass;
my $obj = MyClass->new({ load_plugins => [qw/ Attribute /] });
is $obj->call( test => 'test set'), 'attribute return';
is $obj->{test_str}, 'test set';