sub start()

in d3d/archive/images/d3d11/postproc.pl [472:508]
33 lines of code
26 McCabe index (conditional complexity)

    sub start
    {
        my($self, $tagname, $attr, $attrseq, $origtext) = @_;
        
        if ( $in_int && $::no_int ) { return; }
        if ( $in_api && $::in_api ) { return; }
        if ( $in_ddi && $::no_ddi ) { return; }
        if ( $in_rem && $::no_rem ) { return; }
        if ( $in_del10To11 && $::no_del10To11 ) { return; }
        if ( uc($tagname) eq "H1" ) { ModHeaderStuff(1); TrackLinks($attr); if ( uc($origtext) ne "<H1>" ) {PrintWithNamesResolved "$origtext</$tagname>";} return; }
        if ( uc($tagname) eq "H2" ) { ModHeaderStuff(2); TrackLinks($attr); if ( uc($origtext) ne "<H2>" ) {PrintWithNamesResolved "$origtext</$tagname>";} return; }
        if ( uc($tagname) eq "H3" ) { ModHeaderStuff(3); TrackLinks($attr); if ( uc($origtext) ne "<H3>" ) {PrintWithNamesResolved "$origtext</$tagname>";} return; }
        if ( uc($tagname) eq "H4" ) { ModHeaderStuff(4); TrackLinks($attr); if ( uc($origtext) ne "<H4>" ) {PrintWithNamesResolved "$origtext</$tagname>";} return; }
        if ( uc($tagname) eq "H5" ) { ModHeaderStuff(5); TrackLinks($attr); if ( uc($origtext) ne "<H5>" ) {PrintWithNamesResolved "$origtext</$tagname>";} return; }
        if ( uc($tagname) eq "H6" ) { ModHeaderStuff(6); TrackLinks($attr); if ( uc($origtext) ne "<H6>" ) {PrintWithNamesResolved "$origtext</$tagname>";} return; }

        TrackLinks($attr); # must be after calls to "ModHeaderStuff" above

        foreach $key (keys(%$attr)) 
        {
            if( uc($key) eq "HREF" ) 
            {
                $bInLinkDefinition = true;
                if( $attr->{$key} =~ /^#(.*)/ )
                {
                    $CurrLinkTag = $1;
                }
                else 
                {
                    $CurrLinkTag = $attr->{$key};
                }
                break;
            }
        }

        PrintWithNamesResolved $origtext;
    }