gistfile1.perl

{
    package WGT::Class6;
    use Moose;
    use WebGUI::Definition;

    property  'leaded' => (
        noFormPost => 1,
        default    => sub { [] },
        traits     => ['Array', 'WebGUI::Definition::Meta::Property::Serialize'],
        isa        => 'ArrayRef',
    );

    property  'regular' => (
        noFormPost => 1,
        default    => sub { [] },
        traits     => ['Array'],
        isa        => 'ArrayRef',
    );  
        
    my $object6 = WGT::Class6->new({session => $session});
    my $leaded  = $object6->meta->find_attribute_by_name('leaded');
    my $regular = $object6->meta->find_attribute_by_name('regular');
    use Moose::Util;
    ::ok Moose::Util::does_role($leaded, 'WebGUI::Definition::Meta::Property::Serialize'), 'does_role detects role';
    ::ok !Moose::Util::does_role($regular, 'WebGUI::Definition::Meta::Property::Serialize'), 'does_role detects lack of role';
    ::ok $leaded->does('WebGUI::Definition::Meta::Property::Serialize'), 'property does role';
    ::ok !$regular->does('WebGUI::Definition::Meta::Property::Serialize'), 'property lacks role';
        
}