#!/opt/bleadperl/bin/bleadperl

package Role;

package Object;
@Object::ISA= ('Role');

sub new {
    my $class = shift;

    return bless {}, $class;

}

package main;

my $o = Object->new();

print 'Object DOES Role' if $o->DOES(Role);