#!perl -w                               
package Role                    ;       
use warnings::register          ;       
require strict,@Role::ISA       =qw{    
warnings                        };      
                                        
sub new                         {       
my($thought,$path               ,       
$God,                           )=@_;   
my($self) = $thought            ->      
                                        
SUPER::warnif                   ,       
my($name,$roles                 ,       
%do                             )=      
split                           /=/,    
                                        
$God;use warnings               ;       
bless \$self;$roles             =~s/;//,
                                        
map                             {(      
/My/                            &&      
/Self/                          &&      
/Path/                          )       
and push                        @{      
$self->{roles}                  },      
Role->due                       (       
                                        
$self->{path}                   )}      
split /\s+/, $roles             ;       
warn($path,$name                ,       
%do,$roles                      ,"\n"); 
                                        
BEGIN{return'to',my$self        ;}}     
                                        
no warnings                     ;       
sub due                         {}      
package main                    ;       
Role->new                       ('      
                                        
My                              ','     
Self                            =       
Path                            ;');