lizmat / gist:5557120

Last active May 10, 2013


    
    View gist:5557120 
  
  
      gistfile1.txt
    
    
        Raw
      
    
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
            11
            12
            13
            14
            15
            16
            17
            18
            19
            20
          
          
# should produce JRANDOM\nELIZABETH\n as output
 
module Foo:auth<JRANDOM> {
    sub foo is export { say "JRANDOM" };
}
 
module Foo:auth<ELIZABETH> {
    sub foo is export { say "ELIZABETH" };
}
 
{
    use Foo:auth<JRANDOM>;
    say foo;
}
 
{
    use Foo:auth<ELIZABETH>;
    say foo;
}