Function templates done right

drix has asked for the wisdom of the Perl Monks concerning the following question:

What's the right way to do this here newfangled "function template"? I'm subclassing HTML::Filter and overriding all the methods in an identical fashion. Here's the relevant code:

#!/usr/bin/perl

sub fillTemplate {
    my $funcName = shift;
    my $index = shift;
    
    sub {
      my $self = shift;
      sanityCheck($self);
      ($self->{inTheComment} == 1) ? 
push @{$self->{killBuffer}}, $_[$index] : $self->SUPER::$funcName(@_);
    }
}

for $function ( [ 'declaration', 0 ], 
                [ 'start', 3 ],
                [ 'text', 0 ],
                [ 'end', 1 ] ) {
    *($function->[0]) = fillTemplate($function->[0],$function->[1]);  
+  
}
[download]

Perl doesn't like me referring to $self->SUPER::$funcName. What's the proper way? Dispensing with the template and writing it all out, the line reads $self->SUPER::start, $self->SUPER::end, etc.

Comment on Function templates done right Select or Download Code

Replies are listed 'Best First'.

Re: Function templates done right
by gav^ (Curate) on Feb 14, 2002 at 19:16 UTC

HTML::Filter

This module is deprecated. HTML::Parser now provides the functionally of HTML::Filter much more efficiently with the the default handler.

HTML::Parser

gav^

[reply]

Re: Function templates done right
by vladb (Vicar) on Feb 14, 2002 at 19:49 UTC

use strict;

sub foo {
   print "inside main foo ($_[0])\n";
}

sub bar {
    print "inside main bar ($_[0])\n";
}

foreach my $sub (qw(foo bar)) {
    $main::{$sub}->($sub);
}
[download]

-----
 inside main foo (foo)
inside main bar (bar)
-----

"There is no system but GNU, and Linux is one of its kernels." -- Confession of Faith

[reply]
[d/l]

Back to Seekers of Perl Wisdom