sub team()

in src/lib/view.pm [80:92]

• 12 lines of code
• 1 McCabe index (conditional complexity)

sub team()
{
    my $xml = get 'https://gitbox.apache.org/repos/asf?p=velocity-master.git;a=blob_plain;f=pom/pom.xml;hb=HEAD';
    my ($fh, $filename) = tempfile("XXXXXX");

    print $fh $xml;
    close $fh;
    my $pmc = `xsltproc stylesheets/pmc.xsl $filename`;
    my $commiters = `xsltproc stylesheets/commiters.xsl $filename`;
    my $emeriti = `xsltproc stylesheets/emeriti.xsl $filename`;
    unlink $filename;
    return $pmc . $commiters . $emeriti;
}