sub preprocess()

in src/lib/view.pm [95:108]

• 14 lines of code
• 2 McCabe index (conditional complexity)

sub preprocess {
    my $text = shift;
    my @params = shift;
    while($text =~ /\{\{\w+(?:\([^(){}]*\))?\}\}/)
    {
        my ($before, $tag, $after) = ($`, $&, $');
        $tag =~ s/^\{\{|\}\}$//g;
        $tag =~ m/(\w+)(?:\(([^()]*)\))?/;
        my ($method, $args) = ($1, $2);
        my $replacement = &{\&{$method}}($args) or debug "could not find tag sub $tag";
        $text = $before . $replacement . $after;
    }
    return $text;
}