Changeset 23

Show
Ignore:
Timestamp:
12/15/06 12:25:19 (2 years ago)
Author:
ingy
Message:
 r2326@skinny:  ingy | 2006-12-15 12:23:03 -0800
 Replace instances of Spiffy 'super' with 'SUPER::' Perl idiom.
 
 This is for better performance.
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/core/Kwiki/lib/Kwiki/Config.pm

    r2 r23  
    1919sub new { 
    2020    my ($args, @configs) = $self->parse_arguments(@_); 
    21     $self = super(@configs); 
     21    $self = $self->SUPER::new(@configs); 
    2222    if (my $plugins_file = $args->{-plugins}) { 
    2323        $self->add_plugins_file($plugins_file); 
    …… 
    124124sub get_packed_files { 
    125125    my @return; 
    126     my @packed = super; 
     126    my @packed = $self->SUPER::get_packed_files(@_); 
    127127    while (my ($name, $content) = splice(@packed, 0, 2)) { 
    128128        if ($name =~ /^(plugins|config\.yaml)$/) { 

  • trunk/core/Kwiki/lib/Kwiki/Icons.pm

    r2 r23  
    1818 
    1919sub init { 
    20     super; 
     20    $self->SUPER::init(@_); 
    2121    if ($self->preferences->can('use_icons') and 
    2222        $self->preferences->use_icons->value) { 

  • trunk/core/Kwiki/lib/Kwiki/Plugin.pm

    r2 r23  
    2020sub new { 
    2121    return $self if ref $self; 
    22     super; 
     22    $self->SUPER::new(@_); 
    2323} 
    2424 

  • trunk/core/Kwiki/lib/Kwiki/Registry.pm

    r2 r23  
    44sub add { 
    55    my ($key, $value) = @_; 
    6     return super 
     6    return $self->SUPER::add(@_) 
    77      unless $key eq 'preference' and @_ == 2; 
    8     super($key, $value->id, object => $value); 
     8    $self->SUPER::add($key, $value->id, object => $value); 
    99} 
    1010 

  • trunk/core/Kwiki/lib/Kwiki/Theme.pm

    r2 r23  
    2323 
    2424sub init { 
    25     super; 
     25    $self->SUPER::init(@_); 
    2626    my $theme_id = $self->theme_id; 
    2727    my $template_path =  

  • trunk/core/Kwiki/lib/Kwiki/Users.pm

    r2 r23  
    3838         
    3939sub new { 
    40     $self = super; 
     40    $self = $self->SUPER::new(@_); 
    4141    $self->set_user_name; 
    4242    return $self; 

  • trunk/core/Spoon/lib/Spoon/Formatter.pm

    r2 r23  
    66 
    77sub new { 
    8     $self = super; 
     8    $self = $self->SUPER::new(@_); 
    99    $self->hub; 
    1010    return $self; 
    …… 
    344344 
    345345sub match_phrase { 
    346     return unless super; 
     346    return unless $self->SUPER::match_phrase(@_); 
    347347    return unless $self->matched =~ /^\{([\w\-]+)(?:\s*\:)?\s*(.*)\}$/; 
    348348    $self->arguments($2); 

  • trunk/core/Spoon/lib/Spoon/Hub.pm

    r2 r23  
    1010 
    1111sub new { 
    12     $self = super; 
     12    $self = $self->SUPER::new(@_); 
    1313    $self->init; 
    1414    $Spoon::Base::HUB = $self; 

  • trunk/plugins/ingy/Kwiki-Pages-Perldoc/lib/Kwiki/Pages/Perldoc.pm

    r2 r23  
    77 
    88sub init { 
    9     super; 
     9    $self->SUPER::init(@_); 
    1010    $self->hub->config->add_file('pages.yaml'); 
    1111}