gist: 126510


  
    
      class.pl #
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

          
          
            
              use strict;
use warnings;
 
package ClassA;
sub initialize { "A" }
 
package ClassB;
use base qw(ClassA);
sub initialize { 
    my $class = shift;
    $class->SUPER::initialize . "B";
    # &{ $class . "::SUPER::initialize"}() . "B"; # X?
}
 
package main;
 
print  ClassB->initialize;
Public Clone URL:	git://gist.github.com/126510.git Give this clone URL to anyone. `git clone git://gist.github.com/126510.git gist-126510`
Embed All Files:	show embed